8 
DM 14,80 


OS 124 


SFR 14,80 


schneider‘ 
akti 


IN DIESEM HEFT 


GRUSS GOTT 
GRUEZI 


Mit der großen Programmsamm- 
lung von Schneider aktiv liegt ein 
Jahr Arbeit hinter uns und Sie 
werden lange Zeit einen Nutzen 

aus diesem Heft ziehen können. 

Bei der Zusammenstellung haben 
wir uns von verschiedenen Gesichts- 
punkten leiten lassen. Zuallererst 
sollten die Listings natürlich in 
Ihrer Programmsammlung einen 
wertvollen Bestandteil bilden. Ob es 
dabei um Anwenderprogramme 
oder Spiele geht, wichtig war die 
Leistungsfähigkeit. Der „Termin- 
und Taschenkalender” mit Rechner 
ist hier ebenso zu nennen wie die 
„‚Universaldatei’’ oder ein Pro- 
gramm für die anorganische Chemie. 
Demgegenüber steht das schnelle 
Reaktionsspiel „‚Breaker‘’ oder das 
Listing für Denksportler ‚Die 
Türme von Hanoi‘. Qualität war ge- 
fragt und zeigt sich in jedem Pro- 
gramm. 

Aber auch wenn Sie selbst pro- 
grammieren, werden Sie dieses Heft 
gerne zur Hand nehmen. Viele Uti- 
lities werden Ihre Arbeit mit dem 
CPC erleichtern und Ihre eigenen 
Programme verbessern. Ob Sie nun 
den „Symbolgenerator” benutzen, 
um einen individuellen Zeichensatz 
zu entwerfen, oder ob eine „Super- 
Hardcopy‘’ benötigt wird, die Farb- 
bilder in entsprechende Schraffie- 
rungen umsetzt, Sie werden bestens 
bedient. Wer schon tiefer in die 
Materie eingedrungen ist, der wird 
mit „Header‘' oder „Transfer-Pro- 
gramm“ sicherlich ein Listing seiner 
Wahl finden. 

Besonders wichtig waren für uns 
aber jene CPC-User, die durch Ab- 
tippen in die Geheimnisse des Basic 
eindringen wollen. Hierbei läßt sich 
so mancher Trick erlernen, wenn 
man sich die Mühe macht, über die 
Routinen des Autors einmal nach- 
zudenken. Voraussetzung ist, daß 


GUTEN TAG 


sämtliche Listings klar aufgebaut 
sind und einen logischen Ablauf 
zeigen. Obwohl wegen dieses Krite- 
riums manches Listing verworfen 
werden mußte, haben wir diesen 
hohen Maßstab angelegt. Die Pro- 
gramme eignen sich also auch für 
jene, die die Programmiersprache 
Basic erlernen wollen. 

Bleibt nur noch zu erwähnen, daß es 
sich um bewährte Listings handelt. 
Selbstverständlich wurden sie über- 
prüft und, falls notwendig, auch kor- 
rigiert. Wenn Sie einmal gar nicht 
weiterkommen, rufen Sie uns ein- 
fach an. Montags steht Ihnen unsere 


Hotline von 15.00 bis 19.00 Uhr 
mit Rat zur Seite. Selbstverständ- 
lich antworten wir auch auf Ihre 
Briefe. Und wenn Ihnen das Eintip- 
pen gar zu mühevoll erscheint und 
Sie schnellstens alles zur Verfügung 
haben wollen, dann denken Sie ein- 
fach daran, daß alle Programme die- 
ses Heftes auch als Softbox erhält- 
lich sind. 
Ihr CPC wartet auf Futter, Sie ha- 
ben es in der Hand. Möglichst we- 
nig Syntax Errors beim Eintippen 
wünscht Ihnen, im Namen der ge- 
samten Redaktion, 

Gert Seidel 


SPECIAL Nr. 1/88 


Sj4l3#3 


Cricks 

Die schnelle Jagd 
durch’s Labyrinth ab Seite 18 
Breaker, das Mauerspiel 
Der Klassiker ab Seite 31 
U-Boot 

Aus der Schulbank 
in den CPC ab Seite 43 
Wallrunner 

Hüten Sie sich vor 
den Geistern ab Seite 59 
Senso 

Kurzes Listing mit 


großem Vergnügen Seite 99 


Springer 
Schachvariante ab Seite 100 
Schatzinsel 

Das Adventure um 
Glück und Geld ab Seite 113 
Think & Taktik 
Trainieren Sie Ihr 
Denkvermögen ab Seite 124 
Kartago 

Pokern einmal anders, 
passen Sie auf ab Seite 126 
Die Türme von Hanoi 

Ein Muß für 

„Gehirnakrobaten”’ abSeite 140 


UTILITIES 


Symbolgenerator 
Der CPC mit Ihrem 
Zeichensatz ab Seite 13 
XCopy für Vortex Erweiterungen 
Nutzen Sie die 


Speicherbänke "ab Seite 22 
Super-Hardcopy 

Verarbeitet bis zu 

16 Farben ab Seite 39 
Transfer 


Sicherheitskopien auf 
Diskette sind kein 
Problem ab Seite 63 
Backup 

Kassettensicherung ist 

immer noch das 


Preiswerteste ab Seite 103 


ANWENDER- 
PROGRAMME 


Notizkalender und Taschenrechner 
Termine planen ohne 
Streß abSeite 4 


Chemie 
Die hohe Kunst des 


chemischen Rechnens ab Seite 24 


Diagramm 
Mathematische Werte 


anschaulich dargestellt ab Seite 35 


Budget Planer 
Der CPC spart 
Haushaltsgeld ab Seite 47 
Vokabeltrainer j 
Geduldiger Lehrer ab Seite 53 
Finanzgenie 
Überlassen Sie das 
Rechnen dem 
Computer ab Seite 68 
Multiregression 
Automatische Kurven- 
anpassung bei bester 
Grafik ab Seite 79 
Das Super-Kassenbuch 
Das Konto fest 

im Griff ab Seite 84 
Universaldatei 

Leistungsfähiges, menü- 

gesteuertes Programm 


für jeden Zweck ab Seite 90 
Ewiger Kalender 

Einmal eingegeben, 

druckt er jedes 

gewünschte Jahr ab Seite 109 


Anorganik 
Ein schwieriger Teil der 
Chemie, mit dem CPC 


leicht zu bewältigen ab Seite 129 
Turbo-Tape 

Der Datenrekorder 

kommt auf Touren ab Seite 121 


Header 
Die perfekte Analyse 


des Programmkopfes ab Seite 123 


Strukter 
Übersicht durch 
strukturierte Basic- 


listings ab Seite 133 


schneide 


| aktiv 


LISTING 


TERMIN-TASCHENRECHNER- 
KALENDER 


Eine gleichzeitige Dateiverwaltung von Termindaten 
und Kalkulationsformeln beinhaltet das hier abge- 
druckte Programm von unserem Autor Thomas 
Scheer. 

Eine Anzahl von 70 anstehenden Terminen wird je- 
weils chronologisch verwaltet und je nach Terminart 
(s.u.) automatisch zur Löschung markiert, wenn das 
Fälligkeitsdatum überschritten ist. Da das Programm 
sehr umfangreich ist, kann es bei großen Datenmen- 
gen gelegentlich zu kleinen Verzögerungen (Garbage- 
Collection) kommen, die durch Definition der 
Variablen ““te%“ bei Programmbeginn beliebig beein- 
flußt werden kann (te% = Anzahl der möglichen Ter- 
mineintragungen). 

Das ausschließlich in Basic geschriebene Programm 
ist auf einem CPC 464 geschrieben worden und ist 
auch auf den Schwestern CPC 6128 / 664 kompa- 
tibel, sofern die Programmzeilen mit der “DEC$“- 
Anweisung entsprechend korrekt eingetippt 

werden: 


CPC 464: DEC$(( <SAUSDRUCK> <STRING>) 
wie im Listing — 2 Klammern geöffnet. 


CPC 6128: DEC$( <AUSDRUCK> <STRING>) 

= ] Klammer geöffnet!! 

Die nach Programmstart erscheinende Meldung soll 
dem Anwender nur beim allerersten Programmstart 
behilflich sein, wenn nämlich noch keine Datei mit 
der Bezeichnung “TERMIN.DAT“ auf der Diskette 
vorhanden ist. In diesem Fall kann die ausgedruckte 
Zeile (COPY-CURSOR) übernommen und somit die 
mißliche Lage beseitigt werden. 

Der nächsten Aufforderung, das Tagesdatum einzu- 
geben, muß unbedingt gewissenhaft Folge geleistet 
werden, da ansonsten das Programm fälschlicherweise 
annehmen könnte, ein bestimmter Termin sei bereits 
überschritten. 

Menüpunkt “D“: das Tagesdatum kann hierdurch 
korrigiert werden. 

Termine: 


Sie bestehen aus 3 Teilen: dem Datum, einer Kennung 
und einem Text. Zunächst wird das Datum des Ter- 
mins eingegeben, dann der Text, z.B. 12.11.1987, 
Tagung in Gießen. Das Programm berechnet übrigens 
automatisch zu jedem Datum/Termin den entsprechen- 
den Wochentag und gibt ihn aus. 

Die 3. Information eines Termins ist ein einziges Zei- 
chen, das entweder den Termin als immer wiederkeh- 
rend kennzeichnet (z.B. Geburtstag) oder als tempo- 
rär (Termin wird zur Löschung markiert, wenn das 
Tagesdatum den Termin überschritten hat). 

Die Terminsuche kann entweder über Suchcode (aus 
Text) oder nach Zeit geschehen. In letztem Fall kön- 
nen wiederum verschiedene Suchoptionen gewählt 
werden: automatisches Blättern im Terminkalender 
ab Tagesdatum (Option ‘N‘ — nächste Termine) Mo- 
natssuche oder Kalenderausgabe. 

Veränderung von Daten: Über Tasten E(Edit) oder 
L(Löschen) während der Suchoptionen. Bei jeder 
Datenänderung wird der entsprechende Termin wieder 
chronologisch einsortiert. 

Löschen: Automatisch werden, wie bereits erwähnt, 


die temporären Termine bei Beenden des Programms 
(X- Exit) zur Löschung markiert, wenn das Fälligkeits- 
datum überschritten ist. Bei neuem Programmstart 
werden dann die zur Löschung markierten Termine 
genannt und man kann entscheiden, ob sie endgültig 
gelöscht werden sollen. Ebenso werden alle Termin- 
daten behandelt, die durch die Löschoption (s.o.) 
markiert wurden. 

Kalender: Auf dem Bildschirm wird jeweils das Kalen- 
darium eines Kalendermonats ausgegeben. Sollte ein 
Termin gefunden werden, so wird der entsprechende 
Tag unterstrichen. Das Kalenderblatt kann — jedoch 
ohne Terminkennzeichnung — auch ausgedruckt 
werden. 

Ausdrucken (P) der kompletten Terminliste: Ein 
Drucker muß angeschlossen und arbeitsbereit sein!! 


RECHENOPTIONEN 


Der Taschenrechner: (R) 

Ziffern und Dezimalpunkt werden von der Tastatur 
akzeptiert, ebenso die (ENTER)-Funktion. Andere 
Funktionen (SIN, COS etc.) müssen über die Pfeil- 
tasten angesteuert und durch die (COPY)-Taste 
„angeklickt“ werden. 

Der Rechner besitzt keine Gleichheitstaste, er wird 
ähnlich wie ein Hewlett Packard-Taschenrechner 
bedient. 

Beispielaufgabe: 34 + (3/12.5) 

3 ENTER 12.5 (geteilt durch-Funktion) 34+ 
Protokollieren auf Drucker: ( P)-Funktion wirkt als 
Ein- und Ausschalter. Vorsicht: Der Drucker muß 
angeschlossen und arbeitsbereit sein! 
RAD/DEG-Funktion: Für trigonometrische Berech- 
nungen (SIN, COS, TAN) kann der gewünschte Mo- 
dus eingeschaltet werden, jedes Anklicken des Fel- 
des bewirkt ein Umschalten. 

Der „STACK“ dient zur Zwischenspeicherung von 
Werten (Zwischenergebnisse etc.). Sofern für eine 
Funktion mehr als ein Wert erforderlich ist (z.B. 
Addition), müssen beide Werte getrennt durch ENTER 
eingegeben werden, wobei sich der STACK erhöht 
und anschließend die Funktion aufgerufen werden 
(Berechnung erfolgt aus dem X- und Y-Register des 
STACKS und der STACK wird wieder erniedrigt.) 
Statistik (STAT)-Funktion: Eine Reihe von Werten 
eingeben. Nach dem letzten Wert ENTER drücken. 
Es wird daraufhin Anzahl (n), Summe (Sum), Mittel- 
wert (MW), Quadratsumme und die Standardabwei- 
chung ausgegeben. Die Wertereihe kann nach noch- 
maligem Anklicken von STAT erweitert werden. Um 
eine neue Wertereihe anzufangen, muß die Löschfunk- 
tion (“C“) angeklickt werden. 

Programmieren des Taschenrechners (PRG): Eine 
Berechnungsformel muß vom Formelmenü (F), aus- 
gehend durch ‘H‘(-Hinzufügen) oder ‘N‘(—neu be- 
arbeiten) zur Programmierung vorbereitet werden. 
Sobald der Taschenrechner auf dem Bildschirm er- 
scheint, das PRG-Feld anklicken und “P“ für Pro- 
grammieren wählen. 


Bitte lesen Sie weiter auf Seite 12 


LISTING 


18999 "esse green 
18895 ’* TERMINE ,KALENDER, RECHNER* 
18819 ’* VON * 
18015 ’* THOMAS SCHEER * 
19029 '#* FUER #* 
18925 ’# SCHNEIDER AKTIV * 
ımu3B ’* CPG 464/664/612B UJE* 
10035. PrRRBHRRHHRIHSHHISH He 
180848 ’664/6128-Besitzer muessen be 
i den DEC$-Befehlen die zweite oeff 
nende Klammer weglassen 

128959 

12868 ON BREAK GOSUB 14288 

198978 IF HIMEM<A42588 THEN 180138 


12000 SYMBOL AFTER 2508 
10090 SYMBOL 251,24,0,0,255,255,0,0 


“y 
FLz 


10100 SYMBOL 253,8,1,3,6,230,52,28, 
B 

10110 SYMBOL 254,9,255,3,136,8®0,32, 
80,136 

18128 OPENOUT "D":MEMORY HIMEM-1:CL 
OSEOUT 


18138 DIM bef$(24)::FOR i=1 TO 24 
10148 READ x,y:bef$(i)-CHRA$( 31) +CHRA 
$L3+2%#x) +CHR$Üy+3) 

19158 FOR j=1 TO 3:READ a$ 

18168 IF LEFT$CLAa$,1)="(" THEN bef$t( 
i)=bef$( i) +CHR$LVAL(MID$Ca$,2))) EL 
SE bef$li)=bef$(i)+a$ 

108178 NEXT:bef$( i)=LEFT$Cbef$li) +" 


‚8) :NEXT:i$=" "+CHR$( 24) +” " 
181859 eng$=CHR$L29) * Druckersteueru 
ng fuer 17 CPI 
18198 ’ ============== 
18208 ° DATAs fuer 
18218 ° Funktionsnamen 
10220 ' =========-=--=== 


18238 DATA 12,11,032,0196,"P ",9,11 
‚STAT,(32,032,5,11,(032,(184,(32 
18248 DATA 1,11,PRG,(32,(32,13,9,(2 
42,0 153,032,9,9,(32,C,E,5,9,(32,C,( 
32 

18250 DATA 1,9,EXIT,(32,(32,13,7,(3 
2,0159,(32,9,7,032,*,(32 

109268 DATA 5,7,+,/,-,1,7,1,/,X,13,5 
‚(32,(154,032,9,5,(32,(251,(32,5,5, 
"L”",,6 

18278 DATA 1,5,Y,°,X,13,3,(32,%,( 32 
‚9,3,T,A,N,5,3,(32,(253,( 254 

18288 DATA 1,3,X,°,2,13, : ‚„E 
‚S,1,N,5,1,XY,(249, (241, „1 
10298 
18388 ”° Vorbereitung und 

18318 ° Einlesen der Datei 

108328 ’° ====-=== === === === ===> 

18338 te%=78:DIM mo%( 12) ‚month 1%( 12 
),wot$(7) ,termin$( te%) ,‚formel$( 28): 
RESTORE 13228:FOR i=1 TO 12:READ mo 
%Ci) :month1%( i) =month1%( i-1) +mo%( i) 


oo 
ma 


:NEXT 
12348 FOR i=1 TO 7:READ wot$(i) :wot 
$li)=-wot$(li)+” ":NEXT 
18359 GOSUB 13428 
18368 LOCATE #4,3,2:PRINTf4, "Datei" 
:LOCATE 5,5:PRINT"Datei TERMIN.DAT 
wird eingelesen. ”"CHA$( 18) ; TAB(5) "Be 
i erster Programmbenutzung"TAB(5)"e 
ingeben: 
18378 PRINT:PRINT TAB(5) "OPENOUT "C 
HR$( 34) "TERMIN.DAT"CHR$( 34) " :PRINT 
#49 ,8:CLOSEOUT :RUN" :PRINT 
18388 OPENIN "termin.dat” 
:INPUT#9, Flags% 
18398 IF flags%=® THEN flags%=-1:G0 
T0 18468 
18488 INPUT#9,date$,termin%, formel% 
:GOSUB 13498 
18418 zza%=®8:FOR i=1 TO termin%:zza 
%=z20%+1: INPUT#9, termin$( zzo%) 
18428 IF MID$( termin$( zza%) , 11,1) = 
#" THEN CLS:PRINT MID$( termin$( zza% 
),1,18) :PAINT MID$( termin$( zza%) , 12 
) :PRINT"endgueltig loeschen J/N":GO 
SUB 14158:IF w$="J" THEN zza%=zza%- 
1 ELSE MID$ltermin$( zza%) , 11,1)=" " 
19439 NEXT:termin%=zza% 
18448 FOR i=1 TO formel%: INPUT#9,fo 
rmel$(i):IF LEN(formel$(i))<>255 TH 
EN INPUT#9,a$:formel$(i)=formel$(i) 
SPACE$L25S5-LEN( Fformel$(i))) :MID$Lf 
ormel$( i) ‚MAX( 1,255-LEN( a$)) ,LEN(a$ 
))a$ 
184580 NEXT 
18468 CLOSEIN:date$=LEFT$( date$+r5PA 
CE$C18) ,18) :CLS:LOCATE 5,5:G0SUB 13 
498:G05UB 131398: heute$=date$:tx=tB: 
LOCATE #1,1,1:PRINT#1,wot$;", der"; 
:LOCATE#1,1,2:PRINT#1,date$; 
18478 LOCATE 12,18:PRINT"Warte 
n":FOR a TO termin%:IF MID$(termi 
n$(i),11,1)="#" THEN 180508 ELSE yea 
ee 
18488 IF VAL(MID$(heute$,7,4))>year 
THEN MID$( termin$(i) ,7,4)=MID$( heu 
te$,7,4) 
18498 IF VAL(MID$(termin$(i),4,2))* 
31+VAL(MID$( termin$(i), 1,2)) <31*mon 
th+day THEN MID$(termin$(i),7,4)=RI 
GHT$CSTRA$C VAL(MID$Cheute$,7,4))),4) 
18588 NEXT 
18510 : 
10528 PRINT#S, 
18538 : 
198548 
18558 
108560 
18578 : 
18588 CLS: LOCATE 7,18:PRINT"Termine 


:PEN 1:CLS 


"Auswahlmenue" 


/ Kalender / Taschenrechner” :LOCAT3® 


LISTING 


E 18,12:PRINT CHR$( 154) ;“ 
Scheer" 

18598 GOSUR 13498:C1L5#3:PRINT#3,CHR 
$( 189)" *Termin*", "P=Liste( "P)"”,"D= 
Datum korrigig."”,"5=Suchbegiff", "M= 


1987 Th. 


Monatsuche"”, "N=Naechste Termine”, "T 
-Termineingabe”, "K=-Kalendarium"CHR$ 
(10) 


19699 PRINTRS, #®Rechner*#", "R=-Tasc 


henrechner”, "F>= Formeln” CHR$C 18), 
*Quit#","X= =Ende/Save 


186108 GOSUB 14158 

108628 kh%=INSTRA("PDSMNTKRXF"”,w$) :IF 
kh%=® THEN 190618 

18638 CLS:CL.S#3:0ON kh% GOSUB 10641, 
10658, 18738, 19779, 188090, 11119,11198 
‚114398, 13519, 13688 

18648 GOTO 198588 

18641 PRINTf#B:FOR i=1 TO termin%:PR 
INT#8,termin$( i) :NEXT:RETURN 

10650 ° ========-== 

186680 ° Datum korr. 

10670 * -=-==-====--=- 

186808 date$=heute$:CLS5:LOCATE 5,5:6G 

OSUB 13499:G05UB 13139: heute$=-date$ 


:tx=t9:6CLS#1:PRINT#1,wot$;", der”;: 
NERTER N, 1,2:PRINT#1,date$; :RETURN 
196998 
10900 " ====-==--,ns=emunersaeneneneenn 
18718 ° Termine nach Begriff suchen 
10720 ' ======e-ereemeneomeeanonoone 


18738 PRINT#3,"*#* Terminsuche *##":Pp 
RINT#3:PRINT#3,"nach Suchbegriff":I 
NPUT "Suchbegriff ",s$:s$=UPPER$( s$ 
):s1%=-12:52%=38:G0TO 18788 
10740 ° ==========22=2=2222=2===0=== 
18758 ° Termine nach Monat suchen 
18760 
18778 PRINT#3,"”** Terminsuche #e".p 
AINT#3:PRINT$3,"” nach Monat"”:a$=" " 
:v$="99":PRINT"Monat:"; :p=POS( #8) :v 
=VPOS( #8) :GOSUB 13258: s$=RIGHT$L "” 
"+STA$CVAL(a$)) ,2) :s1%=4:s2%=2:LOCA 
TE p,v:PAINT s$ 
18788 FOR i=-1 TO termin%:IF INSTR(M 
ID$CUPPER$CLtermin$(li)),s1%,s2%) ,s$) 
»=1 THEN GOSUB 198889: IF w$="X" THEN 
RETURN 
12798 NEXT: RETURN 
18800 ’ 
18810 
18820 
18838 s$=MID$[HEUTE$,7,4) +MID$( HEUT 
E$,4,2) +MID$( HEUTE$, 1,2) :PRINTf3,"”* 
* Terminsuche ##" 
18848 FOR i=1 TO termin%:IF s$<=MID 
$ltermin$(i),7,4)+MID$(termin$l(i),4 
2) +MID$( termin$(i),1,2) THEN GOSUB 
10888 
18858 IF w$= 


naechste Termine 


"X" THEN RETURN 


19868 NEXT:RETURN 
10870 '! === =-=e-=-=2-en0uemermemecsenemue 


108889 ” 
n 
18898 
18988 PRINT:PRINT i$"DATUM : 
OSC#B) :v=VPOSC #8) 
$C1),1,10);” 
$(1),1,2)) 
18918 month=VAL(MID$L TERMIN$LI),A,2 
)) :year=VAL( MID$( TERMIN$CI),7,4)):6G 
DEUB 13999: FAINT wot$;1i$;:IF tB>=tx 
THEN PRINT "” noch"”td-tx;"Tage”; 
18928 IF MID$(termin$li),11,1)="*" 
THEN PRINT geloescht" 
18938 IF MID$ltermin$(i),11,1)="#" 
THEN PRINT "” *#temp.*" ELSE PRINT 
18948 PRINT:PRINT MID$(termin$(i),ı 
2) 
18958 CLS#3:LOCATE #3,1,4:PRINT#3,i 
$"L_=1.oeschen "i$; TABC1) i$" E-Editier 
en”"i$; TAB( 1) ;i$"X=Abbruch "if 
198960 GOSUB 14158 
18979 IF w$="L" THEN CLS#3:PRINT#A3, 
CHR$C 18) "Loeschen Sicher ?":GOSUB 1 
4178:C1.5#3:IF w$="J" THEN MID$( term 
in$lji),11,1)="*" 
18988 IF w$="X" THEN RETURN 
18998 ii=-i:IF w$<>"E” THEN 11188 EL 
SE p=1:v=1:IF i<>termin% THEN a$=te 
rmin$(i):FOR j=i TO termin%-1:MID$( 
termin$( j) , 1,58) =termin$( j+t1) :NEXT: 
MID$( termin$( termin%) ,1,58) =a$ 
11888 i=termin%:CLS:date$=MID$( term 
in$(i),1,1®) :GOSUB 13130:MIO$( termi 
n$(i),1,18)=date$:LOCATE p,v:PRINT: 
PRINT ">"; :p=POS( #8) :v=VPOS( #8) :v$= 
SPACE $( 38) :a$=MID$( termin$(i), 12) :P 
RINT a$;"<":GO5UB 132508 
11818 MID$(termin$(i), 12,38) =a$:PRI 
NT:PRINT TAB(5) "Temporaer J/N "”; 
119828 GOSUB 14178 
11838 PRINT en IF w$="J" 
termin$(i),11,1)="#" 
11848 IF w$="N" THEN MID$(termin$l(i 
),11,9-" 


Ausgäbe/aendern von Termine 


;:p=P 
:PRINT MID$( TERMIN 
";:day=VAL( MID$( TERMIN 


THEN MID$C 


119868 ” 
11878 ° ============ 

110889 a$=-SPACE$(5B) :WHILE MID$( term 
in$(i),7,4) +MID$(termin$(i) ,4,2)+MI 
D$ltermin$(i), 1,2) <MID$(termin$li-1 
) ,7,4) +MID$( termin$( i-1) ,4,2) +MID$( 
termin$(i-1),1,2) 

11898 MID$(a$, 1,58)=termin$(i) :MID$ 
(termin$(i),1,58)=termin$( i-1) :MID$ 
(termin$( i-1),1,58)=a$:i=i-1:WEND 
11188 i=ii:PRINT: RETURN 


einsortieren 


| LISTING | 


11110 : 
11128 


111380 ° Termin neu eingeben 
11149 7 ======-=-=-<=--=-0me< een 
11158 CLS#3:PRINT#3,5TRING$( 4,18) ;" 


Termineingabe" 

11168 IF termin%*te% THEN RETURN EL 
SE termin%-termin%+1:termin$l termin 
%) -heute$+SPACE$L 39) :GOTO 11889 


11178 : 
11188 


11190 7 
11200 
11218 CLS#3:PRINT#3, "Kalender" 
11228 PRINT: INPUT "Jahr ",year:INP 
UT "Monat ",month:IF year<1585 OR y 
ear>2188 OR month<1 OR month>12 THE 
N month=VAL(MID$(heute$,4,2)) :year= 
VALC(MID$Cheute$,7,4)) 

11238 PRINT:PRINT"Soll das Kalendar 
ium gedruckt werden J/N ?"”:dr%=8:60 
SUB 14158 

11248 IF w$="J" 
112580 da=1 
11268 CLS:PRINT #dr%:FOR i=1 TO 7:P 
RINT #dr%, TAB( 1+5*#i) ;LEFT$(wot$(i), 
2) ; :NEXT:PRINT#dr%, TAB( 43) ;MID$( "JA 
NFEBMAEAPRMAIJUNJUL.AUGSEPOKTNOVDEZ"” 
‚1+Cmonth-1)#3,3);" ";year:PRINT # 
dr% 

11278 PRINT:FOR day=1 TO mo%( month) 
-(month=2 AND year MOD 4=B) 

11288 GOSUB 13898:PRINT #dr%, TAB( 1+ 
wot%*5) ;RIGHT$L" "+STR$(day),2);:I 
F dr%=8 THEN 11348 

11298 FOR d=da TO termin%:IF VAL(MI 
D$ltermin$(d),1,2))<>day THEN 11338 
11388 IF VAL(MID$(termin$(d),4,2))< 
>month THEN 11339 

11318 IF MID$(ltermin$( d),11,1)=" "” 
OR VAL(MID$Ctermin$(d),7,4))=year T 
HEN PRINT#3,1$;MID$( termin$( d), 1,6) 
;i$:PRINT#3,MID$(termin$(d), 11) ELS 
E GOTO 11338 

11328 MOVE 4A4+8*POS( #8) , 382-16*VPOS( 
#8) :DRAWR -26,8:MOVER ®8,-2:DRAWR 26 
‚@:da=d 

11338 NEXT 

11348 IF wot%=7 THEN PRINT #dr% 
11358 IF wot%=7 THEN PRINT #dr,CHR$ 
(18) 

11368 NEXT:PRINT#dr%: PRINT #3,"Fort 
fahren J/N”; 

11378 GOSUB 14158 

11388 IF w$="N" THEN RETURN 

11398 month=month+1:IF month>12 THE 
N year=year+t1:month>=1 

11488 LOCATE #3,1,VPOS( #3) :PRINT#3, 
= ":G0TO 11268 


THEN dr%=B 


114108 


11428 *° ========- 

11438 * RECHNER 

11440 ° =======--- 

11450 dru%=®8:0N BREAK GOSUB 14188 
11468 IF runmo% THEN 11480 


1147B8 runmo%=®:prmo%=8:CLS:PRINT#3, 

EHR$C IB)” *Rechner*"”":PRINT#3:PRINT 

#3,"Rueckkehr"”;" zum”;"” Menue"; "dur 

ch”;" Bewegen"”;"” des"”;” Funktionsfe 

ldes”;” auf";”" Exit";" und”;"” [COPY 

]1":IF wahl% THEN PRINT#3:PRINT#3,"”g 

ewaehlte Formel:" ,MID$( formel$( wahl 

%),1,18) 

114858 LOCATE 7,1:PRINT CHRA$( 158) ;5T 

RING$( 28, 154) ;CHR$L 156) :LOCATE 7,2: 

PRINT CHR$( 149) ;SPACE$( 28) ;CHR$( 149 
):LOGATE 7,3:PRINT CHR$( 147) ;STRING 

$( 28, 154) ;CHA$( 153) 

11498 LOCATE 42,9:PRINT"Funktionswa 
hl:"CHRA$( 18) ; TAB( 48) ; CHR$( 248) ; TAB( 
45) ;CHR$( 242) ; "COPY"; CHR$C 243) ; TABC 

48) ;CHA$( 241) :LOGATE 42, 16:PRINT"Zi 
fferneingabe: "CHR$( 10) ; TAB( 42) "Tast 

atur"” 

115988 a$="7894561238. 
FOR i=1 TO LEN(a$) 
11518 LOCATE px,py:PRINT MID$(a$,i, 
1) :px=px+18:IF px>38 THEN px=6:py=p 
y+2 

11528 NEXT:MOVE 38,28:DRAWR 230,80:D 
RAWR 8, 138:DRAWR -230,8:DRAWR 8, -13 
B:MOVER 8,34:DRAWR 2380,8:MOVER 8,34 
:DAAWR -2398,8:MOVER 8,34:DRAWR 238, 
1%) 

11538 MOVE 96,28:DRAWR DB, 138:MOVER 
88,8:DRAWA 8, -130:MOVE 284, 16:DRAW 
284,388 

11548 FOR I=1 TO 24:PRINT BEF$(I):N 
EXT:WINDOW#7,9,28,3,3:CL5#7 

11558 GOSUB 11569:G60TD 11638 

11568 "Initial.Rechner 

11578 CLS#6:x1=-9:x2=0:x3=90:x4=8:bef 
%=5:nx=B:5x=-Bd:qx=d 

11580 u$="AHHHHHHHHHH HHHRHHHT : GOSU 
B 11618 

11598 IF degfla% THEN a$="DEG"” ELSE 
a$="RAD"” 

11688 LOCATE 38,2:PRINT CHRA$( 24) ,;a$ 
;CHA$( 24) :a$="":G0OTO 12978 

11618 ° INVERS 

11628 PRINT CHR$( 24) ;bef$(bef%) ;CHR 
$( 24) :RETURN 

11638 ’Rechner-Eingabeschleife 
11648 IF runmo% THEN w$=MID$( Formel 

$(wahl%) ,zza%, 1) :GDOTO 11668 

11658 GOSUB 14158 

11668 IF runmo% THEN IF w$="X" THEN 
zza%=19:G0OSUB 142198:PRINT#3,USING 

u$;x1:PRINT#3, :PRINT#3,MID$( formel$ 

(wahl%) , 1,18) ,"[X=Abbruch]":GOTO 11 


":px=6:py=16: 


LISTING | 


540 


11670 LOCATE 2,1:IF dru% THEN PRINT 
ECHAF(E 24)" "P’CHR$C2A) ELSE PRINT " 


115688 IF cunmo% THEN IF w$="W" THEN 
zzu0%=zza%+1:PHINT#3,MID$( Formel$( w 

ahl%) ,zza%, 1);"-";:LINE INPUT#3,0$: 

GOSUB 14729:G05UB 12918 

11698 IF runmo% THEN IF w$>CHR$( 127 


N THEN PRINT bef$(bef%) :bef%=ASC( w$ 
-127:G0OSUB 11618:w$=CHRA$( 224) 


117988 IF runmo% THEN zza%=zza%+t1 
11718 IF w$=CHR$( 13) THEN PRINT bef 
$CBEF%) :bef%=5:G0OSUB 11619: w$=CHRB( 
24) 

11728 IF prmo% THEN IF wfla%=®8 THEN 
IF w$="%#" THEN wfla%=-1:PRINT#7,"A 
-Z ?":w2$="":WHILE W2$<CHR$( 65) OR 
W2$>CHRA$( 98) :W2$=UPPER$(L INKEY$) :WEN 
D:w$=w$1w2$:MID$L formel$(wahl%) ,zza 
%,2)=w$:zza%-MIN( 255, zza%+2) :PRINT# 

7,TABU1);w2$; "="; :PRINTA6,"[";w2$;" 
1"; 

11738 IF prmo% THEN IF wfla%=-1 THE 
N IF LEN(w$) =2 THEN PHINT#7,"Testwe 
rt 272"; 

11748 IF prmo% THEN IF NOT wfla% TH 
EN IF INSTA("1234567899.",w$) THEN 

MID$Ctormel$(lwahl%) ‚,zza%, 1)=w$:zza% 
=MIN( 255, z2a%+1) :PRINT#6,w$; 

11758 IF prmo% THEN IF wfla%=® THEN 
IF w$=CHR$( 13) OR w$=CHR$( 224) THE 

N MID$( formel$( wahl%) ,zza%, 1) =CHR$( 
127+bef%) :zza%=MIN( 255, zza%+1) :PRIN 

T#6,MID$(bef$(bef%) ,4); 

11768 IF prmo% THEN IF w$="X" THEN 

MID$C formel$( wahl%) ‚,zza%, 1)="X":prm 

0%=9:GUOSUB 12978:IF INSTALL formel$( w 

ahl%) ,"W")<19 THEN MID$( Formel$( wah 
1%) , 19,237) =SPACE$( 237) :CLS#6:: PRINT 

#6,CHR$(7) ;"Eingabe ?7?"TAB( 1) "Wiede 

rholen!":prmo%=-1:zz3%=19 

11778 K%=INSTRA( CHRA$( 242) +CHA$( 243) + 

CHR$( 248) +CHR$( 241) +CHR$( 224) +". 123 

4567890” ,w$) :IF k%=® THEN 11648 
11788 SOUND 1,28,1,13:0ON k% GOSUB 1 
1810,11828, 11830, 11848, 11898, 13810, 
13030, 13038, 13030, 13839, 13030, 13030 
‚138038, 13030, 13830, 13830 

11798 IF k%=5 THEN IF bef%=8 THEN 0 

N BREAK GOSUB 14288 :RETURN 

11808 GOTO 11648 

113818 dif%=1:60T0 11858 

11828 dif%=-1:G0T0 11858 

11838 dif%=4:G0T0 11858 

11848 dif%=-4 

11858 IF bef%+dif%<1 OR bef%+dif>24 
THEN RETURN 

11868 SOUND 2,26,1,13:PRINT bef$(be 

f%) :bef%=bef%+dif%:IF bef%>24 THEN 


8 


ber%=-24 

11878 GUSUB 11629: RETURN 

11888 : 

11899 ° #### KLICK ### 

119900 : 

11918 DN bef% GOSUB 11938, 11988, 121 


60, 12198, 12308, 12339, 12368, 12390, 12 

A180, 12448, 12478, 12500, 12539, 12568, 1 

2598, 12628, 12650, 12688, 12719, 12740, 

12770, 12808, 12830, 12860 

11928 LOCATE #7,1,1:PRINT#7,DEC$((x 

1,u$) ; :RETURN 

11930 ° DRUCKER 

11948 IF dru% THEN PRINT#B:PRINT#B: 

PRINT#48:PNRINTAB 

11958 LOGATE 2,1:dru%=NOT dru%:IF d 

ru% THEN PRINT CHR$( 7) ;CHR$( 24) CHR$ 

( 168) "P"CHA$( 24) ELSE PRINT” " 
11968 RETURN 

1197® - 

11988 ° *#=* STATISTIK *###* 

11998 x11=x1 

12888 GOSUB 129198 :nx=nx+1:CL5#7:PRI 

NT#?,nx":"; 

12818 INPUT #7,"",a$:IF a$="" THEN 

nx=nx-1:G0T0 12968 

12829 IF UPPER$(LEFT$(LAa$,1I))="L" TH 

EN INPUT#7,"Loe:Wert ",xs1:sx=sx-xs 
1:nx=nx-1:qx=qx-[xs1#xs1):IF nx<=® 
THEN sx=9d:qx=B:nx=® 

12838 IF UPPER$(LEFT$LAa$,I))="L" 

EN 12138 

12848 xs=VALla$) :sx=sxtxs:qx=gx+txs# 

xs 

12858 GOSUB 129198:w1$="X( "+MID$LSTRA 

${nx) ,2)+")":6GOSUB 13629:60T0 11988 
12968 

120870 x1=nx:w1$="n ":PRINT#7,w1$;x1 
:CALl. &EBB96:GOSUB 13628 

120888 x1=sx:w1$="Sum ":PRINT#7,w1$; 

x1:CALL &BB96:G0O5UB 13628 

12998 x1=qx:w1$="Q ":PRINT#7,w1$;x1 
:CALL &BB96:6G05UB 13628 

1218088 IF nx<2 THEN 12138 

12118 x1=sx/nx:w1$="MW ":PRINT#7,w1 

$;x1:CALL 6BBB6:6G05SUB 13628 

12128 x1=5QRAl(qgx-sx*#lsx/nx))/Cnx-1) 

):w1$="S5x ":PRINT#7,USING w1$+"HHaH 

HHHHH.HHHHH" x 1: CALL &BB86:G0OSUB 13 

629 

1213@ PRINT bef$( BEF%) :bef%=5:GOSUB 
11610:w$=CHR$( 224) :a$="":x1=x11: RE 

TURN 
12148 : 

12158 RETURN 

12168 ° *# PI ## 

12178 GOSUB 12918:3$=5STR$LPI) :GOSUB 
12919:w1$="":GOSUB 136298:6G0T0 1297 


TH 


14) 
12188 


LISTING 


12198 
12280 
12218 IF prmo% THEN RETURN ELSE CLS 
#6:IF wahl%=®8 THEN PRINT#6,CHR$(7); 
"Formelnummer ";"ueber ", "Hauptmenu 
e ’F’";"anwaehlen !!":CALL &BBB6:CL 
5#6::RETURN 

122208 a$=-"":wfla%=-08 

12230 PRINT#6,MID$( formel$( wahl%) , 1 


‚18) ;CHR$( 18) ; TAB( 1) "A=Run"TAB( 1) "P 
=Programmieren" 


12248 GOSUB 14158 

12258 ON INSTAL"PR”,w$) GOTO 12278, 
12288 

12268 GOTO 12248 

12278 IF MID$(formel$( wahl%) , 19,237 
) <>SPACE$( 237) THEN CLS#6:PRINT#6,C 
HR$C7)"Formel existiert”, "bitte ueb 
er"”,"Hauptmenue : ’F’", "modifizieren 
":CALL &BB86:CL5#6:RETURN ELSE prm 
0%=-1:zza%=19:CLS54#46:PRINT#6,"PRG :"” 
; :RETURN 

12288 IF INSTR(MID$( formel$(wahl%), 
19,237),"X"”)=8 OR INSTA(MID$( formel 
$(wahl%) , 19,237) ,"W")=® THEN PRINT#£ 
6,"Formel”,"nicht", "korrekt !":CALL 
EBBB6:CLS#6:RETURN ELSE runmo%=-1: 
zza%=19:RETURN 

12298 RETURN 

12388 ° #*%# ENTER *## 

12318 GOSUB 12918 

12328 w1$="#4":GOSUB 13620:wfla%=8:G 
0TO 12978 

12338 ° *# CE *## 

12348 a$="":GOSUB 12910 

12358 RETURN 

12369 " ## TC ## 

12378 GOSUB 11568:PRINT bef$( 7) 
12388 RETURN 

12398 *° *%# EXIT *## 

12488 RETURN 

12410 ° wu + zur 

12428 GOSUB 12918:x1=x2+x1:G0SUB 12 
958 

12438 wi$="+":G0OT0O 13628 

12440 "7 su "zer a8 

12458 GOSUB 12919: x1-x1*x2:G605UB 12 

958 

12468 w1$="*":60T0 13628 

124708 * ## +/- ## 

12488 x1=-x1:w1$="+/-":GOSUB 13628 
12498 GOTO 12978 

12500 * ## 1/xX ## 

12518 GOSUB 12918:IF x1=8 THEN PRIN 

T47,CHR$C7) ; :RETURN ELSE x1=1/x1 
12528 w1$="1/X":GOSUB 13629:60T0 12 

978 

12530 * ## — #% 

12548 GOSUB 129198:x1=x2-x1:G0SUB 12 

959 


"PRAG" 


12558 w1$="-":6G0TDO 13628 

12560 ’ *## / »# 

12578 GOSUB 12918:IF x1=® THEN PRIN 

T CHR$(?) :RETURN ELSE x1=x2/x1:G0SU 

B 12958 

12588 w1$="/":GOTO 13628 

12598 ° #*# Zehnerlogarithmus *## 
12688 GOSUB 12919:IF x1<=B THEN PRI 
NT#7,CHR$( 7) ; :RETURN ELSE x1=L06G10( 
x1) 

12618 w1$="L06":GOSUB 13628:G0T0 12 
978 

12620 ° ## Y’X ## 

12638 GOSUB 12918:IF X1>99 OR (x1x1 
AND x2<8) THEN PRINT CHR$( 7) :RETUR 
N ELSE x1=x2 ° x1:G6G05UB 12958 

12648 wi1$="Y ° X":GOTO 13628 

126590 ” ## Prozent *# 

12668 GOSUB 12918:IF x2=B THEN PRIN 
T CHR$(7) ; :RETUAN ELSE x1-100*#x1/x2 


12678 w1$="%":GOSUB 13629:60T0 1297 
[%) 

12688 ” ## TAN ## 

12698 GOSUB 12918:x1=TAN(x1) 

12788 w1$="TAN":GOSUB 13628:60T0 12 
978 £ 

12718 ° ## Wurzel *## 

12728 GOSUB 129198:IF x1<® THEN PRIN 


T#7,CHRA$( 7) ; :RETURN ELSE x1=5QR(x1) 
12738 w1$="SQR”:GOSUB 136298:G0T0 12 
978 

12748 ° #*# x-quadrat ## 

12758 GOSUB 129198:x1=x1%x1 

12768 w1$="x "2":G05UB 13628:60T0 1 


12778 ° ## COS ## 
GOSUB 12918:x1=C05(x1) 
w1$="C05":6G0SUB 13628:60T0 12 


12888 ° *## SIN ## 
GOSUB 12919:x1=SIN(x1) 
w1$="SIN":G0OSUB 13628:60T0 12 


12830 
x1<->x2) 
12848 GOSUB 12918:x11=-x1:x1=x2:x2=x 
11 

12858 GOTO 12978 

12868 ”° **= RAD / DEG **# 

12878 LOCATE 38,2:PRINT CHR$( 24) ;MI 
D$CBEF$CBEF%) ,A,3) ;CHR$( 24) :degfla% 
=NOT degfla%:IF degfla% THEN DEG:MI 
D$Lbef$lbef%) ,4A,3)="RAD"” ELSE RAD:M 
ID$(bef$(lbef%) ,‚4,3)="DEG" 

12888 GOSUB 11618 

12898 RETURN 

12988 RETURN 

12918 ° Stack erhoehen, falls a$<>"" 
12928 IF runmo% THEN IF UPPER$(LEFT 
$Ca$,1))="X" THEN runmo%=8:3$="":IF 


## X und Y vertauschen ## ( 


LISTING 


dru% THEN PRINT#8:PRINT#B8:dru%=8 
12938 IF a$<s>"" THEN x4=x3:x3=x2:x2 
=x1:x1=VAL(a$) :a$="":LOCATE 1,1:PRI 
NT" ":wfla%=®8 
12948 GOTO 12978 
12958 ”° Stack erniedrigen 
12960 x2=x3:x3=-x4:x4=-0:a$="" 
12978 PRINT#7,DEC$L(VAL(o$) ‚u$) ; :IF 
prmo%=® THEN EOBATE 46,1,1:PRINT # 


6 „USING ug+" x4:PRINT#6 „USING u 
Z";x3: PAINT#E” USING u$+* Y";x2: 


Ahr #6, USING u$+"” X";x1 
12988 RETURN 

12990 : 

138008 : 

13818 IF INSTRA(a$ 
‚58,5, 15:RETURN 
13028 
13838 

eckt 
13840 : 
13858 IF w$="."” 

w$= . 

130868 a$=-a$+w$:IF LENLa$)>19 THEN a 

$=LEFT$(a$, 19) 

13878 LOCATE #7,1,1:PRINTA7,DEC$L(V 

AL(a$) ,‚u$) ; :LOCATE #7, INSTRA(DECHE(CV 

AL(a$) ,u$) ‚,A$) , 1:PRINT#7,CHRA$( 24) ;A 

$; CHA$( 24) ; : RETURN 

13888 : 

13898 t8=( year-1585) #365+INT( (year- 
1585) /4) -INT((year-1588) /188) +INT(( 

year-1288) /48B) +month1%( month-1) +da 

y+Cmonth<=2 AND year MOD 4=B)-{(mont 

h<=2 AND year MOD 188=8) +( month<=2 

AND year MOD 4A4808=®) 

13198 t2=year#366+month*31+day 
13118 date$=RIGHT$L” "+STRA$lday),2 

)+"."+RIGHT$L" "+STRA$lmonth) ‚,2) +". 

"+RIGHT$(” "+STR$( year) ,4) 

131298 wot%=1+t9-7#INT( t9/7) :wot$=wo 

t$(wot%) :RETURN 

13138 p=POSt #8) +6: v=VPOS( #0) 

13148 SOUND 1,28,1,15 

13158 LOCATE p-6,v:PRINT "Datum ";d 

ate$:v$="99/99/9999"” :a$=date$:GOSUB 
13249 :date$=a$ 

13168 day=VAL(MID$( date$, 1,2)) :mont 

h=VAL(MID$( date$,4,2)) :year=VAL( MID 

$ldate$,7,4)) 

13178 IF month<1 OR month>12 THEN 1 

3148 

13188 IF year>2188 OR year<1585 THE 

N 13148 

13198 IF day<1 OR day>(mo%( month) -( 

month=2 AND (year MOD 4)=8)) THEN 1 

3148 

13288 GOSUB 13898:LOCATE p-6,v:PRIN 

T wot$;date$ 

13218 RETURN 


‚".") THEN SOUND 1 


Zifferntaste oder "." gedru 


THEN IF a$="" THEN 


13228 DATA 31,28,31,30,31,38,31,31, 
30,31,38,31 

13238 DATA Montag,Dienstag,Mittwoch 
‚Donnerstag,Freitag, Samstag, Sonntag 
13248 : 

13258 ° INKEY-Abfrage im Format v$: 
a$=> als String zurueck 

13268 : 

13278 le=LEN(v$) :11=1:IF LEN(a$)<>1 
e THEN a$=SPACE$( le) 

13288 WHILE INSTAC"!9 ",MID$Lv$,11, 
1))=9:11=11+1:WEND:LOCATE p-1+1l1,v: 
FRINT CHR$( 24) ;MID$(0$,11,1) ;CHA$(2 
4) 
132908 
13308 


11=MIN( 11,1e) :11=MAX( 1,11) 
w$=INKEY$:IF w$="" THEN 13308 
ELSE 12=]11 
13318 IF INSTR(” 
N 13388 
13328 LOCATE p-1+11,v:PRINT MID$(a$ 
1,0 
13338 
13348 
1))=8B: 
=le 
13358 
13368 
INSTRA(” 
$,11,1)=w$:SOUND 1,38,1, 
IF 11>1le THEN RETURN 
13378 IF MID$(v$,11,1)=-" "” THEN IF 
ASC(w$) >31 AND ASC(w$) <127 THEN MID 


‚"+CHR$( 34) ‚w$) THE 


IF w$=CHR$( 13) THEN RETURN 


WHILE INSTAC"!9 ",MID$(v$,11, 
11=11+1:WEND:IF 11>le THEN 11 


11=MIN(11,1e) :11=MAX( 1,11) 

IF MID$(v$,11,1)="9" THEN IF 
1234567890" ,w$) THEN MID$(a 
15:11=11+1: 


$Ca$,11,1)=w$:S0UND 1,38,1,15:11=11 
+1:IF 11>le THEN RETURN 
13380 IF MID$(v$,11,1)-"1" THEN IF 


ASCLw$) >31 AND ASC(w$)<127 THEN MID 
$(a$,11,1)=UPPER$(w$) :SOUND 1,38,1, 
15:11=11+1:IF 11>le THEN RETURN 
13398 IF w$=CHRA$( 242) THEN SOUND 1, 
34,1,15:11=MAX( 11,2)-1:WHILE INSTA( 
"19 " ,MID$Cv$,11,1))=9:11=11-1:WEND 
:IF 11<1 THEN RETURN 

13488 IF w$=CHR$( 243) THEN SOUND 1, 
26,1,15:11=MIN(11,1le-1)+1:WHILE INS 
TAC"!Y ",MID$CV$,11,1))=8:11=11+1:W 
END:IF 11>le THEN RETURN 

13418 LOCATE p+12-1,v:PRINT MID$(a$ 
‚12,1):60T0 13288 

13428 MODE 2:INK ®,1:BORDER 1:INK 1 
son 

13438 ORIGIN 475,8,475,498,382,8:CL 
G 1:0RIGIN ®,0,8,458,400,8:CLG 8 
13448 BORDER 1:WINDOW 2,58,2,25: 
DOW #1,61,80,2,3 

13450 WINDOW#6,38,59,2,7:WINDOW #2, 
62,88,6,7:WINDOW #3,61,88, 18,25 
1346®8 PEN 1:PAPER ®:FOR i=1 TO 3:PE 
N#i,®:PAPER #i,1:CLS#i:NEXT 

13478 WINDOW#1,65,88,2,3:WINDOW#S, 6 
4,80,9,9:WINDOW#4,62,88,4,5:RETURN 


WIN 
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LISTING 


13488 : 

13498 CLS#2:PRINT#2,USING "### Term 
ine"”;termin%:PRINT#2,USING "#44 For 
meln"; formel%:RETURN 

13588 ’ 
13510 
13528 
13538 PRINT:PRINT"Bitte Warten.. 
13548 s$=MID$( HEUTE$,7,4) +MID$L HEUT 


E$,4 2) +MIDSCHEUTES, 1,2), 
13555 FOR i=1 TO termin%:IF 5$>MID$ 


(termin$(i),7,4)+MID$(termin$(i),A4, 
2) +MID$ltermin$(i), 1,2) THEN IF MID 
$(termin$(i),11,1)="#" THEN MID$(te 
rmin$(i), 11,1)="#" 

13568 NEXT 

13578 OPENOUT "termin.dat":PRINT#9, 
-1:PAINT#9,heute$:PRINT#9,termin%, f 
ormel% 

13588 FOR i=1 TO termin% 

13598 WRITE #9,termin$(i) :NEXT 
13688 FOR i=1 TO formel%:WRITE #9,f 
ormel$(i) :NEXT 

13618 CLOSEOUT:END 

13628 ° drucken 

13638 IF dru%=® OR runmo% THEN RETU 
RAN 

13648 PRINT#8,TAB(5) ;w1$; TAB( 15) ;US 
ING u$;x1; :RETURN 

13658 RESUME 11630 

13668 PEN 1:PAPER 8:INK 8,1:INK 1,2 
6:END 
13678 
13688 
13690 ” 
13708 ° ====== 

13718 CLS:CLS#3:FOR i=1 TO formel% 
13728 PRINT USING "Formel Nummer ## 
. = E";i;LEFT$CFormel$(i), 18) :NEXT 
13738 PRINT#3,CHR$( 10) ;” #= Forme 
I zu" 

13748 PRINT#3,CHR$( 18) ; "H=Hinzufueg 
en"”,"N=Neu bearbeiten", "R=Rechner", 
"A=Anzeigen”, "X=Zurueck"” 

13758 GOSUB 14158 

13768 ON INSTAL"XHANR”,w$) GOTO 137 
80, 13800, 13878, 14000, 140508 

13778 GOTO 137508 

13788 RETURN 

13798 ” 
13880 
13818 
13828 formel%=MIN( 28, formel%+1) :wah 
1%=formel%:formel$( wahl%) =SPACE$( 25 
5) 

13838 v$=SPACE$( 18) :p=21:v=wahl%:a$ 
=MID$( formel$( wahl%) , 1,18) 

13848 CLS:LOCATE 1,3:PARINT USING "F 
ormel Nummer ##. = &6";wahl%;a$ 
13858 LOCATE p,v:PRINT MID$( formel$ 


RETURN 


“ 


“ 


Formel hinzufuegen 


(wahl%) , 1,18) :G0OSUB 13259: MID$( Form 

el$(wahl%) , 1,18) =a$ 

13868 PRINT STRING$(3,18)"zur Progr 

ammierung ueber Taschenrechner" :PRI 
NT"Feld ’PRG’ anklicken und ’P’ (Pr 

ogramnmieren) druecken":CALL &BB96:C 
LS#3:G0OTO 114398 

13865 : 
13878 
13888 ” 
13898 PRINT#3:PRINT#3," Anzeigen >" 
:INPUT#3,"Formelnummer ",wahl% 
13988 IF wahl%<1 OR wahi%>formel% T 
HEN 13898 

13918 ELS:PRINT LEFT$CFformel$( wahl% 
}.,187; 

13928 FOR i=19 TO 255 

13938 z$=MID$( Formel$( wahl%) ‚,i,1) 
13948 IF z$="X" THEN 13998 

13958 IF z$="W" THEN PRINT TAB(20); 
"Variable : ";MID$( formel${ wahl%) ‚i 
+1,1) ; TAB( 28) ; :i=i+1:60T0 13988 
13968 IF ASC(z$)>127 THEN PRINT TAB 
(28) ;CHRA$L 24) ;MID$Lbef$l ASC( z$) - 127 
),4) ;CHR$( 24) ; TAB( 20) ; :z$="" 

13978 PRINT z$; 

13989 NEXT 

13998 CALL &BB86:G60T0 13688 

148088 INPUT#3,"”Formelnummer ",wahl% 
:IF wahl%<1 OR wahl%>formel% THEN 1 
48008 

14818 PRINT#3,"Sicher J/N" 

149028 GOSUB 14178 

14838 MID$( Fformel$( wahl%) , 19,237) =5 
PACE$( 237) :G0OTO 13838 

148408 : 
14858 
14068 : 
14878 INPUT#3,"Formel :",wahl%:IF w 
ahl%<1 OR wahl%>fFormel% THEN 13718 
14888 runmo%=-1:z2z3%=19:CL5:CL5#3:L 
OCATE #3, 1,5:PRINT#3,MID$( Formel$( w 
ahl%),1,18) 

14898 dru%=®:PRINT#3,CHR$( 18) "Druck 
er J/N ";:GOSUB 14178:PRINT#3,w$:IF 
w$<>"J" THEN 14140 

141088 dru%=-1:PRINT#8,eng$:PRINT#B: 

PRINT#8,"Formel ";LEFT$Cformel$( wah 
1%) , 18) :PRINT#8 

14118 j%=19 

14128 jk%=INSTR(MID$L Formel$( wahl%) 
‚3%) ,"W"):IF 3k% THEN PRINT#8, SPACE 

$(8) ;MID$( Fformel$( wahl%) , j%+jk%, 1); 

SPACE$( 7) ; : 3%=MIN( 255, 3%+jk%) :GOTO 
14128 

14138 PRINT#8B,SPACE$(9) ;"Ergebnis": 

PRINT#8 

14148 GOTO 11468 

14158 w$=UPPER$( INKEY$) :IF w$="" 

EN 14158 


Formel anzeigen 


Formel selektieren 
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TH 
3» 


14168 RETURN 

14178 GOSUB 14158:IF INSTR( "JN”,w$) 
=®8 THEN 14178 ELSE RETURN 

14188 PRINT bef$(bef%) :bef%=8:GOSUB 
11618:w$=CHRA$( 224) :runmo%=8: IF prm 
0% THEN MID$( formel$(wahl%) ,zza%, 1) 
zug" 

14198 k%=-5:RETURN 

14288 CALL &BBB3:RETURN 


14218 IF dru%=8 THEN RETURN ELSE PR 
INT#8,USING " :"+MID$LU$,3,14) ;x1 


:RETURN 

14228 IF dru%=8 THEN RETURN 

14238 IF LEFT$( UPPER$(a$+"” "),1)="X 
" THEN RETURN ELSE PRINT#8,USING MI 
D$CU$,3,14)+" ";VAL(a$) ; :RETURN 


TERMIN 
TASCHEN- 
RECHNER 
KALENDER 


Fortsetzung von Seite 4 


Im Programmiermodus ist der Taschenrechner wie 
gewohnt zu bedienen: Funktionsaufruf durch Cursor- 
Copy-Steuerung, Zahlenfixwerte über Tastatur. Die 
Variablendefinition (die später im “RUN“-Modus 
einzugebenden Werte) ist durch Drücken von W 
(Werteingabe) einzuleiten. Die Variable muß nun 
noch mit einem Buchstabensymbol (A-Z) benannt 
und anschließend ein “Testwert‘ eingegeben 
werden (der nicht in die Berechnungsformel mit, 
eingeht!). Zum Abschluß der Programmierung die 
X-Taste drücken. Anmerkung: Folgende Funktionen 
sollten nicht in eine Formel mit eingehen: 
DEG / RAD STAT /PAG / P/EXIT 
Aufruf einer Formel: 
Entweder direkt nach der ‚Programmierung‘ durch 
Anklicken des PRG-Feldes (und ““R“) oder über das 
FormelmenüR. 
Wird der Drucker eingeschaltet, so geschieht das 
Druckprotokoll tabellenartig (Spalten mit Eingabe- 
variablen und als letzte Spalte das Ergebnis). Die 
Eingaben und (Bildschirm-)Ausgaben geschehen im 
“RUN“-Modus über das rechte Bildschirmfenster. Der 
RUN-Modus wird so lange fortgesetzt, bis kein Varia- 
blenwert, sondern “X“ eingegeben wird. 
Das Formelmenü: 

: Hinzufügen einer neuen Formel (max. 20) 
Anzeigen einer Formel 
Rechner (RUN-Modus) 
Verändern einer bestehenden Formel (Formel 
wird überschrieben!) 
Abbruch 


x Zar 


(Thomas Scheer) 


SYMBOL- 
GENERATOR 


Der CPC macht es seinem Besitzer leicht, wenn es 
darum geht, neue Zeichen zu definieren. So sollte man 
wenigstens meinen, da das Basic mit SYMBOL AFTER 
und SYMBOL recht bequeme Befehle zur Verfügung 
stellt. Aber damit beginnt auch die Rechnerei. Zu- 
erst einmal das neue Symbol in ein 8 mal 8 Kästchen 
großes Raster übertragen, dann die Punkte binär oder 
gleich hexadezimal berechnen und mit den Basic-Be- 
fehlen definieren. Also doch nicht ganz so einfach 

und wer gleich mehrere Zeichen umgestalten will, der 
wird viel Zeit opfern müssen. Michael Folz hat dazu 
ein Programm entwickelt, welches nicht nur die Mühe 
erspart, sondern darüber hinaus auch sehr benutzer- 
freundlich ist. Vor der eigentlichen Programmbeschrei- 
bung noch zwei Hinweise zum Abtippen. Erstens, der 
DEC$-Befehl (z.B. Zeilen 700 und 1170) ist in der für 
den CPC 464 gültigen Form abgedruckt. Besitzer eines 
CPC 6128 sollten eine Klammer nach dem Stringzei- 
chen (““$‘‘) weglassen. Vergleichen Sie hierzu auch 

den Tips und Tricks-Artikel in Heft 3/87. Zum zwei- 
ten gerät die Bildschirmausgabe des Titelbildes beim 
CPC 6128 nicht ganz sauber. Da es sich allerdings 

nur um die Einleitungsgrafik handelt, kann das Pro- 
gramm selbst uneingeschränkt auf diesem Modell be- 
nutzt werden. Aber lassen wir nun Michael Folz zu 
Worte kommen. 


Haien | Ablegen Spiegeln Farben | Tahellen 


vun el 
AM Kl. 
RE 


TABEL 
88 
we 
Nd 
34 
A 
1 
a8 
Sl 


|... — 0 men 


HEN 
4. 
IM 
ia 
IL 
IN 
J4 


Ger \ENLEr? 6 


Der ‚Symbol Generator“ dient, wie der Name schon 
sagt, zum Erstellen selbstdefinierter Zeichen(sätze). 
Es gibt zwar einige Zeichen-Generatoren, doch über- 
trifft dieser alle anderen an Bedienungskomfort und 
an der Vielfalt der Möglichkeiten. Der Symbol- 
Generator arbeitet, wie sollte es anders sein, Window- 
und Menügesteuert. Dieser Weg wurde so konsequent 
befolgt, daß der Benutzer lediglich zum Eintippen 
des Dateinamens seinen Joystick beiseite legen muß, 
mit dem der gesamte Rest des Programmes bedient 
werden kann. „Joystickhasser“ können natürlich 
auch die Pfeiltasten benutzen. 


Bitte lesen Sie weiter auf Seite 16 
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Diskette | Ende 


LISTING 


I UST | 


1 FSEHRHHERHRHAEAEH ER EEHUNNEHNEHENE 
2% SYMBOL-GENERATOR * 
3 '* LADEPROGRAMM # 
ar VON * 
5 r# MICHEAL FOLZ * 
6 8 FUER * 
7 1% SCHNEIDER AKTIV * 
B + CPC 464/664/6128 je* 
9 IHURUETIEHIENTITIESESEIE IE SF IE IE SEHE TE NIE IE HI IEIS 


-_ 
S 


CALL &BD37:CALL &BBBB:CALL &BBAE 
:CALL &BBBA:CALL &BBFF:CALL &BC65:C 
ALL &BCA7:| DISC:SYMBOL AFTER 65:MOD 
E 2:POKE &B28B,81:CALL &BB81:PRINT" 
ESCape! Software....":PRINT:PRINT: 
PRINT :u=12:a$="SYMBOL":GOSUB 38:PRI 
NT:PRINT:u=1:3$="GENERATOR"”:GOSUB 3 
17] 

28 LOCATE 3,25:PRINT"ESC Symbol Gen 
erator (C) 1986 ESCape! Softwar 
e ...von Michael Folz"”;:S5SYMBOL 
AFTER 256:POKE &B72C,79:POKE &AE6B, 

&EFB:POKE &AE61,&A6:MEMORY &3FFF:OPE 
NOUT” !dummy"” :MEMORY HIMEM-1:CLOSEOU 
T:G605UB AQB:RUN"symbol.8%1 

38 PRINT TAB(U)""; :x=PEEK( 868736) +25 
6#PEEK( &8B737) :y=PEEK( &6B734) *#8:FÜR i 
=8 TO 6:FOR j=1 TO LEN(a$) :z=ASC(MI 

D$La$, j,1))*8:FOR kK=7 TO 8 STEP -1: 
PRINT CHR$( 175*((PEEK(x-y+z+i)AND ( 

2°k)) /C2°K)) +32) ; :NEXT:PRINT"” ";:NE 
XT:PRINT:PRINT TAB(U) ""; :NEXT:RETUR 

N 

au FOR I=8 TO &23F STEP &18:Z=8:FOR 
J=I TO I+&F:READ A$:POKE J+649008,V 

ALL"E”+A$) :Z=Z+VALL”"E”+A$) :NEXT J:R 
EAD A$:IF VAL("E&E"+A$) <>Z THEN GOTO 

68 

SB NEXT :RETURN 

68 CLS:PRINT "Checksum error in Zei 
le"; 70+( I/E18)*10;" !!!1":STOP 

78 DATA DD,6E,88,DD,66,801,11,08,00, 

CD,AB,BB,C9,DD,6E,82,86E9 

88 DATA DD,66,83,DD,5E,88,DD,56,01, 

01,00,08,ED,B8,C9,21,0645 

98 DATA 80,C0,11,3A,42,01,FF,3F,ED, 

B0,C9,21,3A,42,11,08,085AB 

188 DATA CO,81,FF,3F,ED,B8,C9,81,08 
‚88,DD,66,83,DD,6E,92,87®1 

118 DATA DD,56,81,DD,5E,80,7E,4F,1A 
‚77,79,12,13,23,1@0,F6,0594 

128 DATA C9,DD,6E,88,DD,66,01,22,36 
‚B7,3E,FF,32,35,87,3C0,86fe 

138 DATA F5,CD,5D0,BB,3E,89,CD,5A,BB 
‚F1,30,20,F3,AF,32,35,0859 

148 DATA B7,C9,21,80,C6,11,00,A6,86 
‚88,C5,E5,1A,77,06,06,05F3 

158 DATA CD,2®8,BC,18,FB,1A,06,02,C5 
‚86,04,CB,3F,CB,19,CB,865E 

168 DATA 29,180,F8,F5,79,77,CD,23,BC 
‚F1,C1,18,EB,86,89,CD, 8848 


178 DATA 28,BC,18,FB,1A,086,84,C05,86 
‚a2,CB,3F,CB,19,CB,29,85BA 

188 DATA CB,29,CB,29,CB,29,18,F2,F5 
‚79,77,CD,23,BC,F1,C1,8921 

198 DATA 198,E5,E1,CD,26,BC,C1,13,1® 
‚B8,C9,DD,6E,88,DD,66,9878 

288 DATA 81,01,80,88,7E,EE,FF,77,23 
‚82D,28,F8,18,F6,C9,21,8624 

218 DATA 81,A6,11,00,A6,81,07,88,ED 
‚Bß,AF,32,07,A6,C9,21,857B 

228 DATA 86,A6,11,87,A6,901,87,88,ED 
‚B8,AF,32,88,A6,C9,806,9856D 

238 DATA 88,21,88,A6,7E,CB,27,77,23 
‚198,F9,C9,86,88,21,088,84DA 

248 DATA A6,7E,CB,3F,77,23,18,F9,C9 
‚21,808,A6,06,88,C5,86,863A 

258 DATA 88,4E,CB,21,CB,1F,18,FA,77 
‚23,C1,18,F1,C9,21,88,9867C 

268 DATA A6,11,07,A6,06,04,4E,1A,77 
‚79,12,23,1B,18,F7,C9,B4E6 

278 DATA 06,808,11,88,A6,21,808,A6,C5 
‚286,88,4E,CB,39,71,CB,84F5 

288 DATA 1F,23,18,F7,12,13,C1,18,EC 
‚21,88,A6,11,808,A6,81,84B2 

298 DATA 88,898,ED,B8,C9,06,08,11,08 
‚A6,21,87,A6,C5,806,88,84DC 

388 DATA AE,CB,21,71,CB,1F,2B,18,F7 
‚12,13,C1,18,EC,18,D9,869A 

318 DATA 3A,88,A6,F5,CD,DF,48,F1,32 
‚87,A6,0C9,3A,87,A6,F5,8836 

326 DATA CD,EF,48,F1,32,88,A6,C9,21 
‚88,A6,86,88,4E,CB,39,86B5 

338 DATA CB,1F,23,18,F8,F5,CD,8C,41 
‚F1,086,088,21,00,A6,4E,8638 

348 DATA CB,21,CB,3F,CB,19,71,23,18 
‚F5,C9,21,88,A6,86,08,90611 

358 DATA 4E,CB,21,CB,1F,23,180,F8,F5 
‚CD,FF,48,F1,086,08,21,0778 

368 DATA 88,A6,4E,CB,39,CB,3F,CB, 11 
‚71,23,18,F5,C9,06,88,864E 

378 DATA 3E,08,98,CB,27,CB,27,CB,27 
‚EB,27,C06,25,5F,16,88,85FE 

388 DATA C5,D5,21,FF,A5,48,806,88,B7 
‚ED,4A,7E,86,88,A4F,3E,86B4 

398 DATA 88,980,CB,27,CB,27,CB,27,CB 
‚27,6F,26,88,11,33,00,8539 

488 DATA B7,ED,SA,E5,11,1A,80,B7,ED 
‚sA,ES,79,CB,27,F5,3E,888F 

418 DATA FF,38,81,AF,DD,E1,FD,E1,D1 
‚E1,DD,E5,C5,FD,E5,C1,8C5F 

428 "Achtung !! Im nachfolgenden Ha 
uptprogramm muessen die 464-Besitze 
r in den Zeilen 788 + 1178 die zwei 
te oeffnende Klammer beim DEC-Befeh 
1 hinzufuegen !! 


* 
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LISTING 


!ERERRIURIER SEES SEE TEST SE SE STE SEE SE SEE 


1 * 
2 * SYMBOL-GENERATOR * 
3 '# MICHAEL VOLZ = 
4a '* FUER ® 
5 '# SCHNEIDER AKTIV * 
6 ’* CPC 464/664/6128 je* 
by <= 2:2 2.2.22 .2.2.2.2 2.2.2.2 .2.2.2.2.22.2.2.22.2.2.20202 


18 CALL &BBB8:CALL &BBAE:CALL &BBFF 
:CALL &BC65:SPEED WRITE 1 

28 CLEAR:DEFINT a-z 

38 INK 8,8:BORDER 8:INK 1,24:MODE 2 
:WINDOW#1,1,88,1,1:WINDOW#2,1,8®8,25 
‚25:WINDOW#3,1,41,4,21:WINDOW#4,5®, 
88,6,21:ZONE 6 

AaB a1=64088:a2=6&A400D: a3=&AB1F:a4=64 
82B:a5=&4037 :a6=68300:a7=-&64051:a8=& 
A6009:349=64972:a190=&4A48CB: F1=&4BDF:f2 
=GABEF : F3=GABFF:FA=GA1BC: F5=G418B: f 
6=6418C:f7=&41BB: fB=&64198:f9=64119: 
f198=-8412E:f11=64149:f12=64165:d=-1 
58 READ z:FOR i=1 TO z:READ m$(i),m 
(i)::NEXT:READ zz:FOR i=1 TO zz:READ 
z(i):FOR j=1 TO z(i):READ n$(i,j): 
NEXT:NEXT:FOR i=8 TO 2:READ f$(i),f 
(i) :NEXT 

68 DATA 7,Holen, 18,Ablegen,82,” Spi 
epgeln ",178,Farben, 288, Tabellen, 368 
‚Diskette,456,Ende, 558 

78 DATA 3,5,Tabelle loeschen, Tabell 

en vertauschen, Tabelle kopieren, Tab 
elle invertieren, Tabelle anschauen 
88 DATA 4,Daten speichern,Daten lad 
en,Basic generieren,Katalog 

98 DATA 4,an Vertikalen,an Horizont 
alen,an Schraegachse /,an Schraegac 
hse \ 

188 DATA Hintergrundfarbe,8,Stiftfa 
rbe,24,Randfarbe,® 

118 LOCATE 3,2:PRINT STRING$( 76,288 
J);:LOCATE 3,1:FOR i=1 TO z:PRINT CH 

R$C211) CHR$C 32) m$l i) CHR$C 32) CHR$C 28 
9) ;:NEXT:PRINT#Z2,” ESC Symbol Gener 

ator (C) 1986 ESCape! Software 

...von Michael Folz"”;:GOSUB 18 

58:605UB 19869:G05SUB 1898 

128 FOR i=8 TO 3:CALL a1,a6+i*6888: 

NEXT:POKE &B735,8:FOR i=8 TO 7:POKE 
a8+i1,8:NEXT 

138 PLOT-18,-18,1:x=256:y=144:MOVE 
x,y:PRINT CHR$( 23) CHR$( 1) ; :TAG:PRIN 

T CHR$( 234) ; :MOVE x,y:TAGOFF 

148 GOSUB 1128:60SUB 1838 

158 IF kK1>-3 THEN y=y+B 

168 IF k2>-3 THEN y=y-8 

178 IF k3>-3 THEN x=x-8 

188 IF k4>-3 THEN x=x+B 

198 IF k5>-3 THEN IF x<297 AND x>41 
AND y>71 AND y<323 THEN GOSUB 688 

ELSE kK1=x\16:k2=y\16:IF k1>19 AND k 
1<23 THEN GOSUB 288 


288 IF k6>-3 THEN SOUND 1,500,28,4: 
GOSUB 1138:PRINT” ## Aktuelles Ze 
ichen loeschen *#*#"CHR$( 18) ; :G0OSUB 7 
19:x=-256:y=-144:G05UB 1148:IF f THEN 
GOSUB 1958:G05UB 1898:G0T0 148 ELSE 
E 148 


218 IF x<B THEN x=B ELSE IF x>624 T 
HEN x=624 


228 IF y<1i6 THEN y=16 ELSE IF y>4B8 
THEN y=488 

238 IF y<379 THEN 248 ELSE SOUND 1, 

588,28,4:i=1:WHILE x>m(i)AND i<B:i>- 

i+1:WEND:i=i-1:G0OSUB 1138:PRINT TAB 

(C34-LEN(m$Li))) /2) "#8 "mgli)” #8r; 

CHR$( 18) ;:ON i GOSUB 260,2798,360,41 

8,468,5280,660:x=256:y=144:w=9:GOSUB 
1148:G0T0 148 

248 REM 

2580 GOTO 148 

268 GOSUB 838:IF f=255 THEN RETURN 

ELSE CALL a4:FOR i=8 TO 7:POKE aß+i 
‚„PEEK( z+i) :NEXT:LOCATE#4,12,1:PRINT 

#4 ,DEC$CLvV,"AHH") ;:LOCATE#4,31,1:PR 

INT#4,HEX$(f) ;:GOTO 1168 

278 GOSUB 838:IF f=255 THEN RETURN 

ELSE FOR i=8 TO 7:POKE z+i,PEEK( aB+ 

i) :NEXT :RETURN 

288 GOSUB 1118:f=8:IF k2=7 THEN FOR 
i=8 TO 7:POKE i+ta8ß,PEEK(i+a8)XOR 2 

SS:NEXT ELSE IF k2=19 THEN k6=-8:f=- 
1 ELSE IF k1=21 THEN GOSUB 388 ELSE 
IF k1=28 THEN GOSUB 328 ELSE IF ki 

=22 THEN GOSUB 348 ELSE f=-1 

298 IF f THEN 1118 ELSE GOSUB 1168: 

GOTO 1118 

388 IF k2=18 THEN CALL f6 ELSE IF k 

2=12 THEN CALL f5 ELSE IF k2=14 THE 

N CALL f2 ELSE IF k2=16 THEN CALL Ff 
1 ELSE f=-1 

318 RETURN 

328 IF k2=11 THEN CALL fF7 ELSE IF k 

2=15 THEN CALL f3 ELSE f=-1 

338 RETURN 

348 IF k2=11 THEN CALL fB ELSE IF k 

2=15 THEN CALL f4A ELSE f=-1 

358 RETURN 

368 j=3:6G05SUB 1188:IF f=255 THEN RE 

TURN ELSE CALL a4:0N z GOTO 378,388 
‚398,488 

378 CALL F9:G0OTO 1168 

388 CALL f18:G0T0 1168 

398 CALL f11:G0TO 1168 

a08 CALL f12:G0OTO 1168 

418 GOSUB 18298:PRINT"Farben mit Joy 

stick oder”:PRINT TAB( 18)"den Pfeil 

tasten veraendern."”:PRINT"”Uebernehm 

en mit <Feuer> oder <Enter>."CHR$( 1 

8) :FOR i=8 TO 2:PRINT:PRINT fF$li)ST 

RING$( 38-LEN( F$Li)) ,”."); 

428 LOCATE 38,VPOS( #8) :PRINT fl(i);: 
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LISTING 


FOR j=1 TO 288:NEXT:GOSUB 1838:IF k 
-3 THEN f(i)=fli)-1i ELSE IF k4>-3 
THEN f(i)=fli)+1 ELSE IF k5>-3 OR 
k6>-3 THEN 458 
438 Fli)=tfli)-27*Cfli)=-1))MOD 27: 
IF i=2 THEN BORDER f(i)ELSE INK i,f 
(i) 
440 GOTO 428 
458 NEXT :RETURN 
468 j=1:6G05UB 11898:IF f=255 THEN RE 
TURN ELSE ON z GOTO 478,488,498,588 
‚518 
478 GOSUB 838:IF f=255 THEN RETURN 
ELSE CALL al,(z-1) *&6888+a6:RETURN 
488 GOSUB 1278:IF f=255 THEN RETURN 
ELSE CALL a5,(a-1) *88008+a6,(z-1)*& 
888+a6: RETURN 
498 GOSUB 1278:IF f=255 THEN RETURN 
ELSE CALL a2,(a-1)*6880+a6,(z-1)*& 
888+a6 :RETURN 
suB GOSUB 839:IF fF=255 THEN RETURN 
ELSE CALL a18,(z-1) *68898+a6: RETURN 
518 w=-1:605UB 838:x1=8:x2=72:y1=14 
:y2=23:G05SUB 1228:WINDOW 9,72,14,23 
:CALL a?,a6+( f-1) #6888:PRINT CHR$( 1 
8) TAB( 18) CHR$( 24)” <Feuer> oder <En 
ter> druecken "CHA$( 24) ;:CGOTO 1848 
528 j=-2:G05UB 1188:IF f=255 THEN RE 
TURN ELSE ON z GOTO 530,548,568,558 
538 w=-1:G6G05UB 838:G0SUB 1198:PRINT 
"Speichere "d$:SAVE"!"+d$,b,(z-1)*& 
8080+a36,6&6888: RETURN 
5aB w=-1:G0OSUB 838:G0SUB 1198:PRINT 
"Lade "d$:LOAD"”!"+d$,(z-1) *6800+a6: 
RETURN 
558 x1=2:x2=79:y1=4:y2=21:605SUB 122 
8:CL5:CAT:LOCATE 25,17:PRINT CHR$(2 
4)” <Feuer> oder <Enter> druecken 
CHR$( 24) ; :G0OTO 1848 
568 w=-1:6G05UB 838:IF f=255 THEN RE 
TURN 
578 x1=4:x2=38:y1=11:y2=12:G0S5UB 12 
28:PARINT”Erstes Zeichen...?"”; :w=®: 
GOSUB 968:WINDOW 1,88,1,25:LOCATE 2 
3,11:PRINT v:vv=v:LOCATE 4,12:PRINT 
"Letztes Zeichen...?"”; 
588 w=9B:G05SUB 96%:IF v<=vv THEN PRI 
NT CHR$( 7); :GOTO 588 ELSE WINDOW 1, 
80,1,25:LOCATE 23, 12:PRINT v;:x1=26 
:x2=76:y1=15:y2=28:GOSUB 1228 
598 GOSUB 1828:CL5:PRINT TAB( 18) "Da 
ten des Basicprogramms:";CHR$( 18) :I 
NPUT"Erste Zeilennummer: ";a$:IF VA 
L( a$) >65535 THEN 598 ELSE a=UNT( VAL 
(a$)):IF a<1i THEN 598 
688 LOCATE 1,4:PRINT CHR$( 18) ; : INPU 
T"Abstand der Zeilen: ";a$:IF VAlla 
$) >65536 OR b+VAL(a$) #260>65536 THE 
N 598 ELSE b=UNT(VAL(a$)) :IF b<1 TH 
EN 688 


618 GOSUB 1198:PRINT"”Speichere "”d$; 
:OPENOUT"!"+d$:a$="REM --> ESC Symb 
ol Generator - Symbols von”+STR$( 
vv)+" bis"+5TA$(lv)+" - (C) ESC 19 
B6":G0O5UB 650:a$-"REM":GOSUB 658 
628 a$="S5YMBOL AFTER"”+STA$( vv) +": a 
R I=&"+HEX$(Lvv)+"TO aa erbner 
RAR J=8T0O 7:READ A$:VCEJ)=VAL "CHA$CS 
4) +"&"+CHR$C 34) +”+A$) :NEXT:SYMBOL I 
‚v(8),VvC1),VC2),VC3),VC4),V(5),V(6) 
‚v(7) :NEXT:STOP":GOSUB 658 
638 FOR i=vv TO v:a$="DATA ":FOR j>- 
ea TO 7:a$=a$+HEX$([ PEEK( a6+( f-1) #680 
8+1*8+3j) ,2)+"”,":NEXT:a$=LEFT$(a$,LE 
NCa$) -1) :G0OSUB 658:NEXT:a$="REM”:GO 
SUB 658:CLOSEOUT 
648 CLS:PRINT TAB( 18) "Programmgener 
ierung abgeschlossen. "CHR$( 18) :PRIN 
T”"Programm kann jetzt mit MERGE ode 
r LOAD geladen werden.”;:FOR i=1 TO 
3888 :NEXT:RETURN 
658 a$=STRA$la)+"” "+a$: 
LEN( a$) -1) :a=a+b:CALL 
‚3a$: RETURN 
668 z=9:605UB 718:IF f=B8 THEN RETUR 
N ELSE CALL &BB88:CALL &BBAE:CALL & 
BBFF:CALL &BC65:MODE 2:PRINT TAB( 15 
) STRING$( 58, ”"-") :PRINT TAB( 15) "---- 


a$=RIGHT$(a$, 
EBBBA :PRINT#A9 


-"SPACE$( 4B) "----- ":PRINT TAB( 15) "- 
Sa ESC Symbol Generator - End 

of Run ----- = 

678 PRINT TABI( 15) "----- "SPACE$( AB)" 
=== ":PRINT TAB{ 15) "----- Neu 
start mit der Taste <TAB> ===> 
-":PRINT TAB( 15) "----- "SPACE$( AB) "- 
----":PRINT TAB( 15) STRING$(58,"-"): 


WINDOW 1,88,18,25:KEY DEF 68,8, 148: 
KEY 148, "RUN"+CHA$( 13) :a$=INKEY$:EN 
D 

688 xp=x-42:yp=y-72:xp=7-(xp\32):yp 
=7-(yp\32) :POKE a8ß+yp,PEEK( a8+yp)XO0 
RL2°xp) 

698 GOSUB 11908:MOVEL 7-xp) #32+51,(7- 
yp) #32+74:FOR i=® TO 12:DRAWR 26,8: 
MOVER-26,2:NEXT:GOSUB 1118:CALL a9 
788 LOCATE#4,1,yp+4:PRINT#4,5TR$(yp 
) ‚DEC$LPEEK(LaB+yp) ,"#4##"”) , HEX$ÜPEEK 
(a8+yp) ,2) ‚BIN$( PEEK( a8+yp) ,8) :RETU 
RN 

718 PRINT:PRINT" 
NDOW 35,68,9, 18:PRINT TAB(5)CHR$C 17 
5)" ACHTUNG !"CHR$( 18) :PRINT"Nach 
Anklicken des 0.K.Feldes ";:IF z 
THEN PRINT”ist das Zeichen un-";ELS 
E PRINT"sind die Daten un-"”; 

728 PRINT"wiederruflich verloren !"” 
CHR$( 18) ; : WINDOW 25,68, 15, 18:GOSUB 
1268:L0OCATE 28,1:G05UB 1258 

730 x=256:y=128:605UB 1118 

748 GOSUB 1128:G0SUB 1830 


;:G0SUB 1248:WI 
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758 IF 
768 IF 
778 IF 


k1>-3 
k2>-3 
k3>-3 


THEN y=y+B8 

THEN y=y-8 

THEN x=x-8 

788 IF k4>-3 THEN x=x+B 

798 IF k5>-3 OR k6>-3 THEN IF x<267 
AND x>198 AND y<169 AND y>137 THEN 
f=-1:IF z THEN FOR i=8 TO 7:POKE a 
8+1,8:NEXT:RETURN ELSE RETURN ELSE 
IF x<422 AND x>34B AND y<169 AND y> 
137 THEN f=8:RETURN ELSE PRINT CHR$ 
(7; 

888 IF x<®d THEN x=B ELSE IF x>624 T 
HEN x=624 

818 IF y<16 THEN y=16 ELSE IF y>488 
THEN y=488 

828 GOTO 748 

838 LOCATE 1,3::FOR i=1 TO 4:PRINT 
TAB( 18) "ZEICHEN-TABELLE Nr."i:NEXT: 
LOCATE 14,9:G05UB 1250:x1=225:x2=39 
2:y1=207:y2=266:G0T0 848 

848 f=255:x=256:y=128:G0SUB 1110 
858 GOSUB 11298:G05UB 1938 

868 IF kK1>-3 THEN y=y+B 

878 IF k2>-3 THEN y=y-8 

888 IF k3>-3 THEN x=x-8 

898 IF kA>-3 THEN x=x+8 

988 IF kS5>-3 OR k6>-3 THEN IF #=255 
THEN IF x<342 AND x>268 AND y<169 

AND y>137 THEN RETURN ELSE PRINT CH 
A$(7);ELSE 968 

918 IF x<@® THEN x=B ELSE IF x>624 T 
HEN x=624 

928 IF y<16 THEN y=16 ELSE IF y>488 
THEN y=488 

938 IF NOT(x>x1 AND x<x2 AND y>y1 A 
ND y<y2)JAND f=255 THEN 858 ELSE IF 
NOTE x>x1 AND x<x2 AND y>y1 AND y<y2 
)THEN LOCATE 9,f+2:FOR i=8 TO 22:CA 
ILL &BB8A:PRINT CHR$(9) ; :NEXT:f=255: 
GOTO 858 

948 z=( INTELy2-y1)/16)+1)-Cy-y1-1)/ 
16:IF z=f THEN 858 ELSE IF f«<>255 T 
HEN LOCATE 9,f+2:FOR i=8 TO 22:CALL 
GBBB8A: PRINT CHR$(9) ; : NEXT 

958 LOCATE 9,z+2:FOR i=8 TO 22:CALL 
&GBB8A: PRINT CHA$(9) ; :NEXT:f=z:GOTO 
858 

968 GOSUB 1188:IF w=-1 THEN RETURN 
ELSE x1=8:x2=72:y1=14:y2=23:G0SUB 1 
228:PRINT” Mit Joystick/Pfeiltaste 
n waehlen, <Feuer>/<Enter> druecken 
";:WINDOW 9,72,16,23:CALL a7,a6+( f- 
1)#68088:x=1:y=1 

978 LOCATE x,y:CALL &BD19:CALL &BBB8 
A:GOSUB 1838:IF k3>-3 THEN x=x-2 EL 
SE IF k4>-3 THEN x=x+2 ELSE IF kK1>- 
3 THEN y=y-1 ELSE IF k2>-3 THEN y=y 
+1 ELSE IF k5>-3 OR k6>-3 THEN v=(x 
-1) /2+( y-1) #32: z=v*8+( f-1) #5808+a6: 
RETURN 


988 IF x<1 THEN x=63:y=y-1 ELSE IF 

x>63 THEN x=1:y=y+1 

998 IF y<1 THEN x=1:y=1 ELSE IF y>B 
THEN y=-8:x=-63 

1888 CALL &BD19:CALL &EBBBA:FOR i-1 
TO 288:NEXT: . 978 


1818 a$="":WHILE a$="":WEND: RETURN 
1828 WHILE INKEYSZS" WEND- RETURN 


1838 kK1=INKEY( 8) +INKEY( 72) +INKEY( 48 
) :K2=INKEY( 2) +INKEY( 73) +INKEY(49) :k 
3=INKEY( 8) +INKEY( 74) +INKEY( 58) :k4=I 
NKEY( 1) +INKEY( 75) +INKEY( 51) :kS=INKE 
Y( 9) +INKEY( 76) +INKEY( 52) :k6=INKEY( 1 
8) +INKEY( 77) +INKEY( 53) :RETURN 

1848 GOSUB 1038:IF k5=-3 AND k6=-3 

THEN 1848 ELSE RETURN 

18508 CLS#3:0RIGIN 48,78:FOR i=-B TO 

8:MOVE ®,i*32:DRAW 256,i*32,1:NEXT: 
FOR i=® TO 8:MOVE i*32,8:DRAW i*32, 
256:NEXT:TAG:FOR i=® TO 7:MOVE-16,1 
6+1*32:PRINT HEX$( 7-1) ; :NEXT:FOR i= 
8 TO 7:MOVE 16+i*32,272:PRINT HEX$( 
7-1) ; :NEXT:TAGOFF:ORIGIN 8,8:RETURN 
1868 WINDOW 1,80,1,25:FOR i=® TO 1: 
LOCATE 42,9+i*4:PRINT CHA$( 24) CHR$( 
212)” "CHA$( 244)” "CHA$(213) ;:LOCAT 
E 42,1@+i*4:PAINT CHA$(247)”" "CHR 
$( 246) ;:LOCATE 42, 11+i*4:PRINT CHR$ 
(215)” "CHR$( 245)" "CHR$( 214) CHA$(2 
4) ; : NEXT 

1878 LOCATE 42,17:PRINT CHRA$( 24) CHA 


$(212)"  "CHA$C213);:LOCATE 42,18: 
PRINT” INV ";:LOCATE 42,19:PRINT CH 
AR$(215)"  "CHA$( 214) CHA$( 24); 


1888 LOCATE 42,5:PRINT CHRA$( 24) CHR$ 
(212)"* "CHA$( 213); :LOCATE 42,6:PR 
INT" CL5S ":LOCATE 42,7:PRINT CHRA$(2 
15)" "CHR$( 214) CHRA$( 24) ; : RETURN 
10898 CLS#4:PRINT#4,”"Symbol Nr. ??? 
aus Tabelle Nr.?":PRINT#4,"”Nr. De 
z. Hex. Bin.”:FOR i=® TO 7:PRINT# 
4,5TA$(i)," 9@","D0" , "OBBDBBAR":NEX 
T:PRINT#4:PRINT#4:PRINT#4, "Symbol i 
m.. N2 Mi MB” :PRINT#4:RETUR 
N 
1188 TAG:CALL &BD19:PRINT CHR$( 234) 
; : TAGOFF :RETURN 
1118 TAG:MOVE x,y:CALL &BD19:PRINT 
CHR$( 234) ; :MOVE x,y:TAGOFF :RETURN 
1128 IF XPO5=x AND YPOS=y THEN RETU 
RN ELSE TAG:CALL &6BD19:PRINT CHR$(2 
34) ;:MOVE x,y:CALL &BD19:PRINT CHA$ 
(234) ;:MOVE x,y:TAGOFF :RETURN 
1138 GOSUB 1188:CALL a3:x1=290:x2=68 
:y1=7:y2=18:6G05UB 1228:WINDOW 21,59 
‚7,18:RETURN 
1148 CALL a4:WINDOW 1,88, 1,25:PAINT 
CHR$( 24) ; :G0OSUB 1118:RETURN 
1158 LOCATE v,VPOS( #8) :RETURN 
1168 GOSUB 1858:FOR i=8 TO 7:FOR j= 
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a TO 7:IF PEEK(a8+j) AND(2°i)THEN MO 
VE( ?7-i) #32+51,(07-5) #32+74:FOR k=8 T 
O0 12:DRAWR 26,8:MOVER-26,2:NEXT 
1178 NEXT:LOCATE#4,1,i1+4:PRINT#4,5ST 
A$(i) ,DEC$(PEEK(a8+i) , "AHH#”) „HEX$UP 
EEK( a38+i) ,2) ‚BIN$( PEEK( a8+i) ,8) :NEX 
T:CALL a9:CALL a3:RETURN 
1188 LOCATE 1,3:FOR i=1 TO z(j):PRI 
NT TAB((48-LENCn$( 5, i))) /2)n$lJ,i): 
NEXT:LOCATE 14,9:G0SUB 1258:x1=2285: 
x2=392:y2=267:y1=y2-z( j) #16+4:w=-1: 
GOSUB 848:IF f=255 THEN RETURN ELSE 
CLS:PARINT TAB((34-LEN(n$( j,z)))/2) 
"z= "n$l j,z)” *#"”;CHRA$C 18) :RETURAN 
1198 GOSUB 18298:d$="TABELLE"+RIGHT$ 
(STA$CF),1)+".SYM":x1=6:x2=31:y1=16 
:y2=21:G0SUB 12208 
1288 LOCATE 2,4:PRINT"”* maximal BB 
uchstaben *"; :PRINT"” Ohne Extension 
eingeben.”;:LOCATE 2,2:LINE INPUT” 
Dateiname :";a$:IF a$<>""THEN d$=UP 
PER$(a$) +"”.SYM” 
1218 IF LEN(d$) >16+4*d THEN 1198 EL 
SE LOCATE 13,2:PRINT d$:x1=12:x2=78 
:y1=17:y2=19:G05UB 1228:LOCATE 5,2: 
PRINT"”Diskette vorbereiten, <Feuer> 
oder «Enter> druecken."”:GOSUB 1848 
:CLS:LOCATE 28,2:RETURN 
1228 WINDOW 1,880,1,25:LOCATE x1-1,y 
1-1:PEN 8:PAPER 1:PRINT CHR$C 158)5ST 
RING$( x2-x1+1, 154) CHA$( 156) ;:FOR j= 
y1 TO y2:LOCATE x1-1,j:PRINT CHR$( 1 
49) ;:LOCATE x2+1, j:PRINT CHR$( 149); 
:NEXT:LOCATE x1-1,y2+1:PRINT CHRA$( 1 
47) STRING$( x2-x1+1, 154) CHR$( 153) ; 
1238 WINDOW x1,x2,y1,y2:CLS:RETURN 
1248 v=POS( #8) :PRINT CHR$( 284) STARIN 
G$( 4,288) CHR$( 2085) :G0OSUB 1158:PRINT 
CHR$( 211) "STOP"CHRA$( 289) :GOSUB 115 
8:PRINT CHR$( 285) STAING$( 4,218) CHR$ 
(284) :G0OSUB 1158:PRINT” "CHRA$( 289) 
CHA$( 211) :GOSUB 1158:PRINT” "CHRA$C 
289) CHR$( 211) :RETURN 
1258 v=POS( #8) :PRINT CHRA$( 158) STRIN 
G$( 9, 154) CHR$( 156) :G0OSUB 1158:PRINT 
CHR$( 149) "” ABBRUCH "CHR$( 149) :GOSU 
B 1158:PRINT CHRA$( 147) STRING$( 9, 154 
) CHR$C 153) :RETURN 
12608 v=POS( #8) :PRINT CHRA$( 158) STRIN 
G$( 9, 154) CHA$( 156) :G0OSUB 1158:PRINT 
CHR$( 149)” * O.K * "CHA$LC 149) :GOSU 
B 1158:PRINT CHR$( 147) STAING$( 9, 154 
) CHR$( 153) :RETURN 
1278 LOCATE 9,8:PRINT"” erste Ta 
belle ”";:LOCATE 1,2:6G05UB 838:IF 
f=255 THEN RETURN ELSE a=z:LOCATE 
13,8:PRINT"zweite"”;:LOCATE 1,2:GOT0O 
838 
1288 FOR i=8 TO 7:POKE i+a8+16,PEEK 
(i+taB) :NEXT:RETURN 


SYMBOL-GENERATOR 


Fortsetzung von Seite 12 


Es werden vier voneinander unabhängige, aber inter- 
aktive Zeichensätze angeboten. Der Benutzer kann 
aus diesen Zeichensätzen, die bei Programmstart je- 
weils dem Standardzeichensatz entsprechen, ein be- 
liebiges Zeichen editieren und es anschließend in ei- 
ner dieser Tabellen ablegen. 

Bis dahin wäre das Programm, abgesehen vom Bedie- 
nungskomfort, langweilig und würde den bisher an- 
gebotenen Utilities weitgehend entsprechen. Aber die- 
ser Symbol Generator bietet mehr: Er kann (Funktion 
“Spiegeln“) die Zeichen bei der Definition über vier 
verschiedene Achsen spiegeln, er kann die Zeichen 

in verschiedene Richtungen verschieben oder rollen 
und er kann jedes Symbol auch invertieren. Auch die 
fertigen Tabellen können vertauscht, kopiert, inver- 
tiert und — falls es einmal sein muß — wiederherge- 
stellt werden. 

Selbstverständlich können die erstellten Zeichensätze 
abgespeichert werden. Dies geschieht mit dem Menü- 
punkt „Diskette“. Der Zeichensatz wird dabei binär 
abgespeichert, bzw. kann zur Weiterverarbeitung auch 
wieder eingelesen werden. Sie müssen allerdings nicht 
befürchten, daß Sie, um diesen Zeichensatz in ande- 
ren Programmen verwenden zu können, in die Maschi- 
nensprache einsteigen sollen. Der Zeichensatz wird 
auch als Basic-Programm abgelegt und dies kann auf 
einfache Art mit dem Mergebefehl in eigene Pro- 
gramme integriert werden. Zudem lassen sich die Bild- 
schirmfarben an den persönlichen Geschmack anpas- 
sen. 

Es ist nicht leicht, zu einem derart benutzerfreundli- 


chen Programm eine Bedienungsanleitung zu schreiben. 


Ich bin vielmehr der Meinung, daß dieses Programm 
gar keine Anleitung benötigt. 

Schauen Sie sich also einfach einmal den Symbol Ge- 

nerator an, ich bin sicher, daß Sie damit zurechtkom- 

men und er Ihnen darüber hinaus eine große Hilfe 

sein wird. 


CRICKS 


„Cricks“ ist eine äußerst schnelle Pacman-Version, 
die trotz der Maschinensprache auf allen drei CPC- 
Modellen läuft. 


Programmbeschreibung 


Das von mir entworfene Programm ist ein Geschick- 
lichkeitsspiel mit dem Namen „Cricks‘“. Das ganze 
Spiel ist in zwei Listings aufgeteilt. Teil l (CRICKS. 
BAS) ist ein Basic Inkl daß zeitunkritische Auf- 
pen etwa den Highscore und ähnliches, über- 


Teil 5 ÜCRICKS. BIN) ist das Maschinenprogramm 
zum eigentlichen Spiel. Dieses Maschinenprogramm 
wird vom Programm „BASICLADER“ automatisch 
erzeugt. Gehen Sie dabei sicherheitshalber so vor: 
Zu aller erst das Listing ‚‚Cricks“ eintippen und saven. 
Bei Kassettenbetrieb muß dies das erste File sein. 
Dann den Basiclader abtippen und, ohne ihn vorher 
zu starten, abspeichern und erst danach mit RUN 
starten. Ist das Listing fehlerlos, wird das Programm 
„CRICKS.BIN“ auf Diskette (Kassette) abgespei- 
chert. Lauffähig ist das Spiel mit den Files CRICKS. 
BAS und CRICKS.BIN, Kassettenbenutzer sollten es 
genau in dieser Reihenfolge haben. Der Basiclader 
Bitte lesen Sie weiter auf Seite 21 
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LISTING 


I RA 2 5 2 2.2 222.202 2,2 22222222 22.2 2.22.2222 


eu ’* CHRICKS * 
30 '’* VON * 
au '* JOERN KLOSE ® 
5 ’* FUER ® 
68 ’* SCHNEIDER AKTIV ” 
7B '’* CPC 464/664/6128 = 


88 EEE HETERTEHEC HEN EHER 
98 SYMBOL AFTER 256:MEMORY E6FFF 
188 LOAD" !CRICKS.bin",&7888 

118 GOSUB 1358: "Symbols 

120 INK 8,8:INK 1,26 

130 ENV 3,15,-1,18:ENV 1,5,12,1:ENV 


2,188,-2,18:ENV 4,188,-18,2:ENT A, 
18,188,2 
148 g=68:hiscore=® 
158 GOSUB 1158: ’Init 
168 
170 (waruerererereieieene 
180 zHterert MENUE Treten 
190 zererueeenerereneeen 
2u0 
218 MODE ® 
228 PRINT CHR$( 23) ;CHR$C1); 
238 SPEED KEY 38,2:INK 2,12,25:INK 
3,25,12 
248 a$=CHR$( 143) +CHR$( 143) : TAG 
258 PLOT 58,388,2:PRINT a$;" CRI 
CKS ";a$; 
268 PLOT 54,384,3:PRINT a$;" CRI 
CKS ";a$; 
278 TAGOFF 
288 PRINT CHR$( 23) ;CHR$(B); 


298 LOCATE 1,13:PRINT ” (K)eybo 
ard"” 

388 PRINT:PRINT” (5) piel”:PRINT 
:PRINT"” (G)eschw.”:PRINT: PRINT” 


CE)nde” 
318 a$=LOWER$( INKEY$) :IF a$="kK"” THE 
N GOTO 378 ELSE IF a$="g"” THEN GOTO 
518 ELSE IF a$="s” THEN GOTO 648 E 
LSE IF a$="e” THEN GOTO 1688 ELSE G 
0T0 318 


320 
3398 ee Hehe 


340 '#s##tH#x# TASTEN #r#rer 

3508 "merkteteeteteenenen 

360 ’ 

378 MODE 8:LOCATE 7,2:PEN 2:PRINT"T 
ASTEN:":PEN 1 

388 LOCATE 1,11:PRINT "OBEN ? 2. 
;:GOSUB 4580:POKE &76F3,a:PRINT a$ 
398 LOCATE 1,13:PRINT "UNTEN ? : " 
;:GOSUB 4598:POKE &76F4,a:PRINT a$ 
a88 LOCATE 1,15:PRINT "LINKS ? : * 
;:G0SUB 458:POKE &76F5,a:PRINT a$ 
4a18 LOCATE 1,17:PRINT "RECHTS ? : " 
;:G0OSUB 458:POKE &76F6,a:PRINT a$ 
428 PRINT:PRINT:PRINT"”So OK ?" 


438 a$=LOWER$( INKEY$) :IF a$="" THEN 


438 ELSE IF a$="n" THEN 378 ELSE I 
F a$<>"j" THEN 438 ELSE 218 

448 IF a$<>"j” THEN A38 ELSE RETURN 
458 a$=LOWER$( INKEY$) :IF a$="" THEN 
a58B EISE a=ASC(a$) :RETURN 


460 

AIG Heraeeeeeeeeieenerdee 

ABO ’szrere# GESCHW. Her 

agn Hruererereietateeiene 

sun 

518 MODE 8:PEN 3:LOCATE 3,2:PRINT"G 


ESCHWINDIGKEIT:":PEN 2:LOCATE 3,7:P 
RINT”Werte von 1-199” 
528 PEN 1:LO0CATE 3,15:PRINT"”Alter W 


ert: ";g 

538 LOCATE 3,18:INPUT”Neuer Wert: 
"ag 

5SaB IF a$="" THEN 218 

558 b=VAL(a$) 

568 IF b<8® OR b>188 THEN 538 


570 g=b:POKE &757E,g 

588 GOTO 218 

598 ’ 

60H ’FRHFHREREREHNEHiEn 

KIA srrrer SPIEL Frrert 

62790 eek 

630 ’ 

648 GOSUB 968: "BILD 

658 SPEED KEY 2,2:INK 2,9,18:INK 3, 


19,22:POKE &757E,g 

668 FOR n=&7B1B8 TO &67814:POKE n,B:N 
EXT :POKE &781B, 1 

678 CALL &7815: ==> MC-Programm 

688 score=PEEK(&781B) +18*PEEK( 67811 
) +1B9*PEEK( 878012) +1BB98*PEEK( &E7013) + 
1BBBO*PEEK( 87814) 

698 IF PEEK(&7888) =255 THEN 778 

788 IF score>hiscore THEN hiscore=s 
core 

718 FOR n=1 TO 2888:NEXT:50OUND 135, 
8:score=9®8:G0OTO 158 


728 

730 "Rn 

748 '*#=* NEUE RUNDE #*#* 

750 riet 

768 ’ 

778 SOUND 129,8:RESTORE 828 


788 
798 
898 


READ a,b 

IF b=-1 THEN 848 

SOUND 1,3,b,15,3 

818 GOTO 788 

828 DATA 319,48,239,18,253,5,239, 18 
‚119,28,1,1,119,28,1,1,119,280,1,1®, 
80,590,6®, 18 

838 DATA ®,-1 

848 s=PEEK( &757E) 

850 s=s-5 

868 POKE (&757E),s 

878 FOR n=1 TO 2888:NEXT 

888 GOSUB 968 
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898 GOSUB 1158 

988 GOTO 678 

g18 

gg RR 

93H "srerr# BILD Frreer 

gaQ Hreueeeeeeeeeeeen 

950 

968 BORDER 3:PEN 1 

978 MODE 1 

988 WINDOW #1,4,35,1,22:PAPER#1,1:C 

LS#1 

998 WINDOW #1,5,34,2,21:PAPER#1,0:C 

1LS#1 

1888 LOCATE 5,24:PRINT "SCORE: 
HISCORE: ”“ 

1818 a$=STR$lhiscore) 

1828 a$=RIGHT$( a$,LEN(a$)-1) 

1838 IF LEN(a$)<5S THEN a$="98"+a$:6G0 

TO 1838 


1848 LOCATE 38,24:PRINT a$ 

1858 a$=STRA$( score) 

1868 a$=RIGHT$(a$,LEN(a$)-1) 

1878 IF LEN(a$)<S THEN a$="9"+a$:60 
TO 19878 

1888 LOCATE 12,24:PRINT a$ 

1898 RETURN 

1180 ” 

A110 rueetereeen 

41129 saeeee INIT Harrer 

11308 rear 

1148 ” 

1158 fa=>5408 

1168 RANDOMIZE TIME*1858 

1178 zz1=INT( ARND*180) 

1188 zz2=INT( RAND*19B) 

1198 umgo1=INT( AND*#2) 

1288 umgo2=INT( RND*255) 

1218 POKE &7882, fa-256*INT( fa/256) 
1228 POKE &7883,INT(fa/256) 

1238 POKE &7804,8 

1248 POKE &7805,® 

1258 POKE &7888,zz1 

1268 POKE &7881,zz2 

1278 POKE &76EF , umgo2 

12808 POKE &76F®,umgo1 

1298 RETURN 

13808 

1310 sueeeeeremet 

13208 ’*### GSYMBOLS ###* 

1330 sueeerertermeetene 

1348 

1358 SYMBOL AFTER 128 

1368 SYMBOL 128,129,8,08,8,0,8,8,129 
1378 SYMBOL 129,129,128,128, 128,128 
‚128, 128,129 

1388 SYMBOL 138,129,8,8,0,8,8,0,255 
1398 SYMBOL 131,129,128,128,128,128 
‚128,128,255 

1488 SYMBOL 132,129,1,1,1,1,1,1,129 
1418 SYMBOL 133,129,129, 129, 129,129 


‚129,129,129 
1428 SYMBOL 134,129,1,1,1,1,1,1,255 
1438 SYMBOL 135,129,129,129, 129,129 
‚129, 129,255 
1448 SYMBOL 136,255,0,8,0,0,0,8,129 
14508 SYMBOL 137,255, 128,128, 128,128 
‚128,128,129 
1468 SYMBOL 138,255,8,0,0,08,0,0,255 
1478 SYMBOL 139,255, 128,128, 128,128 
‚128, 128,255 
1488 SYMBOL 148,255,1,1,1,1,1,1,129 
1498 SYMBOL 141,255,129,129, 129,129 
‚129,129,129 
1588 SYMBOL 142,255,1,1,1,1,1,1,255 
1518 SYMBOL 143,255,129,129, 129,129 
‚129,129,255 


1528 SYMBOL 144,8,66, 182, 182,182,12 


6,126,0 

1530 SYMBOL 145,8,126,62,6,6,62, 126 
1) 

’ 

1548 SYMBOL 146,8, 126,124,96,96, 124 
‚126,8 

1558 SYMBOL 147,8,126, 126, 182, 182,1 
02,66, 


1568 SYMBOL 
1570 SYMBOL 
‚255,255, 255 
1588 SYMBOL 


148,0,8,0,24,24,80,0,0 
163,255, 255,255,255, 255 


164,0, 124,118, 124, 124,1 


08, 102,0 

1598 SYMBOL 165,8,62,118,62,62,54,1 
02,0 

1688 SYMBOL 166,8,126,98,182,126,18 
2,1802,0 

1618 SYMBOL 167,0,68,126,126, 126,10 
2,102,08 

1628 RETURN 

1638 ’ 

1649 Fran 

16598 ’*F##r= ENDE ##### 

1669 FRE HTEREhann 

1678 ’ 

1688 MODE 2:BORDER ® 


1698 END 


HISCORE: B8B88 


SCORE: 88838 
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Ur. 2 2225222222, 22. 2.222222 2202 222222 
20 ’* DATALADER FUER CRICKS * 
38 ’#ERZEUGT BINAERFILE CRICKS.BIN* 


49 NER 
650 a=-87009:e=-&76FB:zb=-1808:e=e+1 
668 FOR i =a TO e:READ d$:IF LEFT$( 
d$,1)="&" THEN flag =1 

678 IF (flag AND ps<>VAL(d$)) THEN 
PRINT"Fehler in Zeile "zb+t1:END 

688 IF (flag AND i=e) THEN SAVE "CR 
ICKS.BIN",B,&7000,&6F8:END 

698 IF flag THEN i=i-1:zb=zb+1:ps=® 
„d$="":flag = 8:G0T0O 738 

788 d$="&"+d$:POKE i,VAL(d$) :ps=ps+ 
VAL(d$): 

738 IF i < e THEN NEXT i 

1881 DATA 80,00,00,00,00,900,00,080,8 
0,00,00,00,00,00,900,00,0908,00,00,08, 
00,21,1F,77,906,14,C0C5,690196 

18082 DATA 86, 1E,36,8F,23,18,FB,36,8 
0,23,C1,18,F2,86, 1E,36,08,23,18,FB, 
06,25,36,FF,23,18,FB,6&8849 

1883 DATA 21,1F,77,22,8A,780,22,8E,7 
0,06,024,21,986,70,36,808,23,18,FB,3E, 
03,CD,86,71,2A,8E,78,6B86A5 

1884 DATA FS,FE,88,20,87,11,81,80,E 
D,52,18,19,FE,81,28,06,11,1F,08,19, 
2C,31,39,2C,46,45,2C,88683 

1885 DATA 380,31,2C,32,38,2C,38,36,2 
C,31,31,2C,31,46,2C,38,38,2C,31,39, 
02,00,31,39,39,80,46,6B4ABF 

1886 DATA 35,2C,46,45,2C,30,38,2C,3 
2,38,2C,308,37,2C,31,31,2C,38,31,2C, 
398,38,2C,45,44,2C,35,&9556 

1887 DATA 32,2C,31,38,2C,31,39,2C,4 
6,45,2C,30,31,2C,32,38,2C,380,36,2C, 
31,31,2C,31,46,2C,38,&854E 

1888 DATA 38,2C,38,00,46,35,2C,46,4 
5,2C,30,38,2C,32,308,2C,38,37,2C,31, 
31,2C0C,38,31,2C,380,38,6051A 

18089 DATA 2C,45,44,2C,35,32,2C,31,3 
8,2C,31,39,2C,46,45,2C,38,31,2C,32, 
30,2C,30,36,2C,31,31,868565 

1818 DATA 2C,31,46,2C,30,38,82,88,3 
08,30,36,80,46,35,2C,46,45,2C,38,3®, 
2C,32,38,2C,38,37,2C,8&84D2 

1811 DATA 31,31,2C,38,31,2C,38,38,2 
C,45,44,20,35,32,2C,31,38,2C,31,39, 
2C,46,45,2C,380,31,2C,&855E 

1812 DATA 32,38,2C,38,36,2C,31,31,2 
C,31,46,2C,35,88,46,35,2C,46,45,2C, 
38,38,2C,32,38,2C,38,&852E 

1813 DATA 37,2C,31,31,2C,38,31,2C,3 
0,38,2C,45,44,2C,35,32,2C,31,38,2C, 
31,39,2C,46,45,2C,38,68564 

1814 DATA 31,2C,32,30,2C,38,36,2C,3 
1,31,2C,31,46,82,88,31,46,33,88,46, 
35,2C,46,45,20C,30,38,&B84EC 

1815 DATA 2C,32,38,2C,38,37,2C,31,3 
1,2C,38,31,2C,38,38,20C,45,44,2C,35, 


32,20,31,38,2C,31,39,60538B 
1816 DATA 2C,46,45,2C,30,31,2C0,32,3 
0,2C,30,36,2C,31,31,2C,32,00,46,35, 
2C,20,33,31,2C,32,43,6&8528 
1817 DATA 2C,33,32,2C,30,30,2C,34,3 
6,2C,33,35,2C,32,43,2C,3E,00,32,43, 
2C,34,36,2C,34,35,2C,&6851E 
1818 DATA 32,43,2C,33,30,2C,33,31,2 
C,32,43,20,33,32,2C,33,30,2C,32,43, 
2C,33,38,2C,33,36,2C,88546 
1819 DATA 32,43,2C,33,31,2C,33,31,2 
C,32,43,2C,33,32,2C,30,3@0,2C,34,36, 
2C,33,35,2C,32,43,02,86052® 
10828 DATA 08,32,43,30,00,32,43,2C,3 
4,36,2C,34,35,2C,32,43,2C,33,3®0,2C, 
33,31,2C,32,43,2C,33,88511 
1821 DATA 32,2C,33,30,2C,32,43,2C,3 
3,30,2C,33,36,2C,32,43,2C,33,31,2C, 
33,31,2C,32,43,2C,33,60547 
10822 DATA 32,2C,30,30,2C,34,36,2C,3 
3,35,2C,3B,00,32,43,2C,34,36,2C,34, 
35,2C,32,43,2C,33,30,&851F 
1023 DATA 2C,33,31,20,32,43,2C,33,3 
2,2C,33,30,2C,32,43,2C,33,3@0,2C,33, 
36,2C,32,43,2C,33,31,868547 
1824 DATA 2C,33,31,2C0,32,43,2C,33,3 
2,2C,30,30,2C,34,36,2C,33,35,802,0®8, 
33,35,39,00,32,43,2C,&84BC 
10825 DATA 34,36,2C,34,35,2C,32,43,2 
C,33,38,2C,33,31,2C,32,43,20,33,32, 
2C,33,30,2C,32,43,2C,8@54D 
1026 DATA 33,30,20,33,36,2C,32,43,2 
C,33,31,2C,33,31,2C,32,43,2C,33,32, 
2C,30,30,2C,34,36,2C,80539 
10827 DATA 38,00,32,43,2C,34,36,2C,3 
4,35,2C,32,43,2C0,33,30,2C,33,31,2C, 
32,43,2C,33,32,2C,33,60529 
1028 DATA 380,2C,32,43,2C,33,380,2C,3 
3,36,2C,32,43,2C,2C,32,43,2C,33,33, 
2C,33,36,2C,32,43,2C,868557 
10829 DATA 33,32,20,34,33,2C,32,43,® 
2,00,32,43,27,00,33,38,2C,32,43,2C, 
33,32,2C0,34,33,2C,32,6@4BD 
10838 DATA 43,2C,33,33,2C,33,30,2C,3 
2,43,20,33,33,2C0,33,36,2C,32,43,2C, 
33,32,2C,34,33,2C,26,68543 
1831 DATA 88,33,30,2C,32,43,2C,33,3 
2,2C,34,33,2C,32,43,2C,33,33,2C,33, 
30,2C,32,43,2C,33,33,8851D 
10832 DATA 2C,33,36,2C,32,43,2C,33,3 
2,20,34,33,02,00,34,33,24,080,33,3®, 
2C,32,43,2C,33,32,2C,6@4A8 
1833 DATA 34,33,20,32,43,2C0,33,33,2 
C,33,30,2C,32,43,20,33,33,20,33,36, 
2C,32,43,2C,33,32,2C,8854F 
1834 DATA 23,00,33,30,2C,32,43,2C,3 
3,32,2C,34,33,20,32,43,20,33,33,2C, 
33,30,2C,32,43,2C,33,&858D 
10835 DATA 33,2C,33,36,2C,32,43,2C,3 
3,32,02,00,33,32,21,00,33,38,2C,32, 
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43,20,33,32,2C,34,33,604AA 
1836 DATA 2C,32,43,2C,33,33,20,33,3 
0,2C,32,43,20,33,33,2C,33,36,2C,32, 
43,2C,20,00,33,30,2C,80586 
1837 DATA 32,43,2C0,33,32,20,34,33,2 
C,32,43,2C,33,33,2C0,33,30,2C0,32,43, 
26C,33,33,2C,33,36,2C,8054F 
1038 DATA 32,43,02,00,32,43,1E,00,3 
3,38,2C,32,43,20,33,32,20,34,33,2C, 
32,43,2C,33,33,2C,33,8804C4 
1039 DATA 30,2C,32,43,20,33,33,2C,3 
3,36,2C,10,00,33,38,2C,32,43,2C,33, 
32,20C,33,32,20,34,33,604FA 
1048 DATA 2C,32,43,2C,33,33,2C,33,3 
3,20,32,43,20,33,33,2C,33,36,2C,32, 
43,2C,31,44,2C,30,3®0,&855B 
1041 DATA 2C,33,33,2C,33,38,2C,32,4 
3,20 ,33;32,20,34,33,2C0,32,43,20,33, 
33,20,33,32,2C,32,43,68548B 
1942 DATA 02,08,32,43,3F,08,33,30,2 
C,32,43,2C,33,32,2C,34,33,2C0,32,43, 
2C,33,33,2C,33,33,2C,&®4CF 
10843 DATA 32,43,2C0,33,33,20,33,36,2 
C,32,43,2C,31,44,2C,380,30,2C0,33,33, 
2C,33,30,2C,32,43,2C,8&8558 
1844 DATA 33,32,2C0,34,33,20,32,43,2 
C,33,33,2C,33,32,2C,3E,00,33,38,2C, 
32,43,2C,33,32,2C,34,8851B 
10845 DATA 33,2C,32,43,2C,33,33,2C,3 
3,33,2C,32,43,20,33,33,2C,33,36,2C, 
32,43,2C,31,44,2C,3®,&6055E 
1846 DATA 30,20,33,33,20,33,3®0,2C,3 
2,43,2C,33,32,20,34,33,20,32,43,2C, 
33,33,2C,33,32,02,88,&840C 
1847 DATA 33,32,3C,00,33,30,2C,32,4 
3,20,33,32,2C,34,33,2C,32,43,2C,33, 
33,20C,33,33,2C,32,43,8&052F 
1048 DATA 2C,33,33,2C,33,36,20,32,4 
3,2C,31,44,2C,30,38,2C0,33,33,2C,33, 
30,20C,32,43,2C,33,32,8@548 
1049 DATA 2C,34,33,2C,32,43,20,33,3 
3,2C,3B,00,33,30,2C,32,43,20,33,32, 
2C,34,33,2C0,32,43,2C,88522 
1858 DATA 33,33,2C,33,33,20,32,43,2 
C,33,33,2C,33,36,2C,32,43,2C0,31,44, 
2C,34,33,2C,32,43,2C,88562 
10851 DATA 33,31,2C,34,34,2C0,32,43,0 
2,00,32,43,3C,00,33,33,2C,33,33,2C, 
32,43,2C,33,33,2C,33,&8406 
1852 DATA 33,20,32,43,20,33,32,2C,3 
4,33,20,32,43,20,33,33,2C,33,33,2C, 
32,43,2C,33,33,2C0,33,&054F 
1853 DATA 36,2C0,32,43,20,33,32,2C,3 
4,33,20,32,43,2C0,33,31,2C,34,34,2C, 
38,00,33,33,2C,33,33,&6051F 
1854 DATA 2C,32,43,2C,33,33,2C,33,3 
3,20,32,43,20,33,32,2C0,34,33,2C,32, 
43,2C,33,33,2C,33,33,&6054F 
1855 DATA 2C,32,43,2C,33,33,2C,33,3 
6,2C,32,43,2C,33,32,2C,34,33,2C,32, 


43,20,33,31,2C0,34,34 ,&0552 

1856 DATA 02,00,34,34,39,08,33,33,2 
6;33,33,26,32,43,20,33,33,26,33,33, 
2C,32,43,2C,33,32,2C,&84BE 

10857 DATA 34,33,2C,32,43,2C0,33,33,2 
0,33533,26,32,43,20,33;,33,20.33,36, 
2C,32,43,20,33,32,2C,60552 

1858 DATA 34,33,2C0,32,43,2C,33,31,2 
C,38,008,33,33,20,33,33,2C,32,43,2C, 
33,33,2C,33,33,2C,32,80517 

1859 DATA 43,2C0,33,32,20,34,33,2C,3 
2,43,2C,33,33,20,33,33,2C0,32,43,2C, 
33,33,2C0,33,36,2C,32,860552 

10868 DATA 43,20,33,32,2C0,34,33,2C,3 
2,43,2C,33,31,02,08,33,31,36,80,33, 
33,2C,33,33,2C,32,43,&®4CD 

1861 DATA 2C,33,33,2C,33,33,2C,32,4 
3,2C,43,2C,33,33,2C,33,33,2C,32,43, 
2C,33,32,2C,34,33,2C,60549 

1862 DATA 32,43,02,00,32,43,1B,80,3 
2,43,2C,33,33,20,33,33,20;32,43,2C, 
33,33,2C,33,33,2C,32,&04C3 

1863 DATA 43,2C,33,32,2C,34,33,2C,1 
A,008,32,43,2C,33,33,2C,33,33,2C,32, 
43,2C,33,33,2C,33,33,6@50B 

1864 DATA 2C0,32,43,20,33,32,2C,34,3 
3,02,00,34,33,18,00,32,43,2C,33,33, 
2C,33,33,2C,32,43,2C,&04AC 

10865 DATA 33,33,20,33,33,2C,32,43,2 
C,33,32,2C,17,00,32,43,2C,33,33,2C, 
33,33,2C,32,43,2C,33,60596 

10866 DATA 33,20,33,33,20,32,43,2C,3 
3,32,02,00,33,32,15,00,32,43,2C,33, 
33,2C,33,33,2C,32,43,&04AD 

1867 DATA 2C,33,33,60092 


CRICKS 


Fortsetzung von Seite 17 


wird nur einmal benötigt, sollte aber zur Sicherheit 
noch irgendwo verwahrt werden. 


Zum Spiel 


Nach dem Start des Spieles durch RUN“CRICKS“ er- 
scheint ein Menü, mit dem man als eingefleischter 
Tastaturspieler seine persönliche Definition herstellen 
kann. Man kann allerdings auch jederzeit auf Joystick 
umsteigen. Mit ““G“ läßt sich eine Voreinstellung für 
die Geschwindigkeit eingeben. Hierbei gilt: je kleiner 
der Wert, desto schneller verläuft das Spiel. Die Werte 
liegen zwischen 1 und 100. Für den Anfänger dürfte 
der voreingestellte Wert von 60 gerade richtig sein. 
Nach dieser Auswahl kann ‚‚Cricks‘‘ mit der Taste 
“S“ gestartet werden. 

Das Spiel selbst ähnelt zwar Pacman, besitzt jedoch 
ein paar wesentliche Änderungen. Es gilt, in einem 
Labyrinth möglichst alle Punkte zu sammeln und da- 
bei nicht mit einem blinden Geist zu kollidieren. 

Mit diesem hat es eine besondere Bewandtnis: Da das 
Labyrinth in sich geschlossen ist und man nicht im 
Kreis laufen kann, läuft der blinde Geist, der offen- 
sichtlich auch ein wenig Intelligenz zu besitzen scheint, 
bei jeder möglichen Abzweigung nach links. Auch 
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wenn der Spieler direkt vor ihm steht, geht er — so- 
weit möglich — nach links. Dadurch entsteht der 
Effekt, daß der blinde Geist nach einem vollen Rund- 
gang zweimal in jedem Feld war, also auch dort, wo 
sich die Spielfigur aufhält. Der Spieler hat damit nur 
die eine Möglichkeit, sich immer brav rechts zu halten 
und dem Geist, so gut es eben geht, auszuweichen. 
Sollte der Spieler es nun nach vielen Anläufen ge- 
schafft haben, sämtliche Punkte einzusammeln — es 
gibt insgesamt 600 Stück davon — dann öffnet sich 
unten eine Tür und er kann entwischen. Allerdings 
kommt er dadurch nur in ein anderes Labyrinth, in 
dem alles noch ein bißchen schneller abläuft. 

Um die ganze Geschichte nun aber nicht zu einfach 
werden zu lassen, kommt ab und zu der Sohn des 
blinden Geistes am Rand vorbei; er wird gerade an- 
gelernt und darf deshalb noch nicht ins Labyrinth. 
Aber wenn sich ein Spieler gerade am Rand aufhält, 
achtet der Junior nicht auf Papas Verbote und haut 
einfach zu. Das Spiel ist dann beendet. 
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20 '* X-COPY * 
39 '*# VON = 
au '* LOTHAR MIEDEL #* 
se ’*# FUER ® 


70 ’* CPC 6128 MIT VORTEX X-MODUL * 
80 SRHHHRRRRRRHHHSREISHEIRRIRTRIESETSE TEN 


108 REM XCOPY - Programm zum Dupliz 
ieren von 5,25-Zoll-Disketten 


118 REM fuer den CPC612B in 
Verbindung mit einem 

128 REM Vortex-X-Modul-Lauf 

werk 

138 MEMORY E&3FFF 

148 ° 

158 ’Allgemeine Definitionen 


160 txtinit=&EBBAE:fFlush=&BD3D:warte 
=&BBW6 :buffstart=84QWd:buffer=-buffs 
tart 

178 seclen=-512:anzahl=1448 

1808 ” 

198 ’Fensterdefinitionen 

288 spurf=1:1fdsecf=2:sektorf=3:ban 
kf=4:secanzf=5:bufferf=6: jobf=7 

218 j1$="Bitte":j2$="-Diskette einl 
egen und eine Taste druecken!" 

220 

238 ’Festlegungen und Definitionen 

fuer die Maschinen-Routine 

248 mpg=&8BABH:mbefehl=mpg+t&26:mdriv 
e=mpg+t&2A 

250 mtrack=mpg+&62B:mformse=mpg+&2C: 
mbuffer=mpg+&2E:blsw=&8A38 

268 

2708 "Befehle fuer den Diskettenzugr 
iff 

288 lesen=&84:schreiben=&85:befehl= 
lesen:b$="Lese" 

298 

388 CALL txtinit:MODE 2:inv$=CHRA$(2 
4) 

318 PRINT inv$"Disketten-Duplizier- 
Programm fuer CPC 6128"; 

328 PRINT " und Vortex-X-Modul-Lauf 
werk Vers.:1.3” 

338 PRINT inv$;SPACE$(38)inv$"(c) b 
y Lothar Miedel"inv$ 

348 

358 LOCATE 2,5:PRAINT”Spur:":LOCATE 

65,5:PRINT"Bank: ” 

368 LOCATE 28,5:PRINT"Laufende Sekt 
or-Nummer: 

378 LOCATE 68,7:PRINT"Bufferadresse 
:”:LOCATE 1,25:PRINT"”JOB: 

388 LOCATE 28,22:PRINT inv$"Die Zie 
ldiskette muss formatiert sein!"inv 
$ 

398 

488 WINDOW #spurf,8,14,5,5:WINDOW # 
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ıfdsecf,46,52,5,5 

a1ıB WINDOW #s ‚ektorf; 3,78,18,19:WIND 
OW #bankf,75,79,5,5 

428 WINDOW #bufferf,75,79,7,7:WINDO 
w #jobf,6,79,25,25 

aan 7 

448 PRINT #jobf,"Das Maschinen-Prog 
ramm wird erzeugt! 

ASB GOSUB 978:PRINT #jobf, 
n-Programm erzeugt! 

Aa6B °’ 

A478 PRINT Asektorf,inv$:CLS #Sektor 
f:PAINT #Aspurf,track 

A488 PRINT #Abufferf,HEX$(buffer) 

490 ' 

588 PRINT #bankf,bank:PRINT #jobf,j 
1$;” Quell”; j2$:CALL warte 

518 PRINT #jobf,b$;" Diskettensekto 
ren”:befehl=lesen 

520 == sen 


"Maschine 


538 LOCATE 28,22:PRINT SPACE$(4AB) 
5a8 FOR i = 1 TO anzahl:secnr=i-1:P 
RINT Alfdsecf,i 

559 track=INT( secnr/9) 
r MOD 9) +1:G6G05UB 868 
568 pruefzahl= (secnr MOD 32) +1:IF 
alttrack = track THEN 588 

578 PRINT #spurf,track:alttrack=tra 
ck:PRINT #sektorf,"” "; 

588 PRINT #Asektorf, dektor" = 

Ss9B IF i <> anzahl THEN IF befehl < 
> schreiben THEN 618 

688 IF befehl=schreiben THEN IF i>-a 
nzahl THEN GOTO 948 

618 buffer=-buffer+seclen:PRINT #buf 
ferf,HEX$( buffer) 

628 

639 IF pruefzahl <>32 THEN 678 

648 block=block+1:buffer=buffstart: 
IF block=5 THEN block=8:605UB 698 
658 IF block=® THEN bank=block ELSE 
bank=block+t3 

66® PRINT #bankf,bank 

678 NEXT i 

680 

698 PRINT #bankf,inv$:PAINT #Abankf, 
bank 

788 LOCATE 35,5:PRINT Ajobf, "Wechse 
l: "wechsel+1:wechsel=wechsel+1 

718 IF befehl=lesen THEN PRINT #Job 
f,j1$;"” Ziel"; j2$ 

728 IF befehl=schreiben THEN PRINT 
#Jobf,j1$;” Quell”; j2$ 

738 BORDER 23:CALL flush:CALL warte 
:PRINT #bankf,bank 

748 CLS #sektorf:BORDER 1 

750 ” 


:sektor>( secn 


768 IF befehl=schreiben THEN befehl 
=]lesen:b$="Lese”:GOTO 888 
778 IF befehl=-lesen THEN befehl=sch 


reihben:b$="Schreibe":i=-i-16® 
788 sektor=-(i MOD 9) 
7990 


8080 CLS #sektorf:PRINT #jobf,b$;" D 
iskettensektoren 

819 IF sektor=9 THEN 838 

828 FOR k=1 TO sektor:PRINT #4Sektor 

1,” "= :NEXT K 

838 PRINT #bankf,inv$:RETURN 

Bau ° 

858 ’"Disketten-Zugriffe 

868 PRINT #bufferf,HEX$(buffer) :PRI 

NT #spurf,track 

878 CALL blsw,bank:POKE mtrack,trac 

k:POKE mdrive, 1 

888 bufferhigh=INT(buffer/256) :buff 

erlow=buffer-bufferhigh*256 

898 POKE mbuffer,bufferlow:POKE mbu 

ffer+1,bufferhigh 

988 POKE mformse,sektor:POKE mbefeh 
1,befehl:CALL mpg 

918 RETURN 

929N 

938 ’ende 

948 bank=®:CALL blsw,bank:PRINT #ba 
nkf,bank:PRINT #jobf,"Diskette dupl 
iziert!" 

958 END 

968 

9708 a=&68B009:e=&8936 

988 FOR i =a TO e:READ d$:d$= 
:POKE i,VAL(d$) :ps=ps+VAL(d$) 

998 IF i < e THEN NEXT i 

1888 IF ps <>4635 THEN PRINT"Fehler 
in den Datastatements"”:END 

1818 RETURN 

1929 

18308 DATA 3A,2a,88,32,23,880,21,26,8 

8,CD,D4,BC,22,27,80,79,32,29,8® 
1948 DATA 21,2a,808,5E,21,2B,80,56,2 
1,2c,88,4E,2A,2e,88,df,27,880,c9 
1858 DATA 84,08,00,00,080,08,00,00,8 

B8,80,dd,7e,88,cd,5b,bd,c9 


X-COPY 


Wer nur ein Diskettenlaufwerk besitzt, der wird zum 
„Diskjockey‘, sobald es um die Kopie einer 5.25- 
Zoll-Diskette (750 KByte) geht. Das Programm 
X-Copy nutzt jedoch sämtliche Speicherbänke als 
„Lagerplatz‘‘ und reduziert den Wechsel auf ein 
Minimum. 


"E"+d$ 
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CHEMIE 


Wer hatte nicht schon in der Schule, in der Ausbil- 
dung zum Laboranten oder im Studium Probleme mit 
der Lösung chemischer Aufgaben gehabt? Damit ist 
es jetzt vorbei, denn unser Autor Alf Dengler hat ein 
Programm für alle CPCs geschrieben, das Ihnen diese 
Berechnungen abnimmt. Es stellt im Bereich der Che- 
mie für verschiedene, immer wieder auftretende Be- 
rechnungen entsprechende Hilfsdienste zur Verfügung. 
So verfügt das Programm über eine bequeme Summen- 
formeleingaben, Berechnungsmöglichkeiten für Mol- 
massen, Elementarzusammensetzung von Verbindun- 
gen und vieles: mehr. Die notwendigen Daten dazu 
sind am Ende des Programmes enthalten. Da das 
Listing im Bausteinprinzip aufgebaut ist, besteht 
leicht die Möglichkeit einer Erweiterung durch Unter- 
are 

as Programm ist voll menügesteuert und leicht zu 
handhaben. Die Optionen werden ständig angezeigt. 
Nach dem Bildschirmaufbau zeigt oben links ein klei- 
nes Fenster den jeweiligen Zustand des Rechners an: 
Durch A wird angezeigt, daß der CPC gerade arbeitet 
und keine Eingaben akzeptiert, B signalisiert, daß er 
auf. Eingaben wartet. 
Das Menü wählen Sie durch Druck auf die Taste M 
an. Es bleibt so lange sichtbar, bis Sie es durch L wie- 
der löschen. Das Dialogfenster können Sie durch 
Drücken der Taste D löschen. 
Die Variable IEZ gibt an, daß das Programm 103 Ele- 
mente berücksichtigt. Die Variable IEZ2 gibt an, wie- 
viel.Elemente maximal gleichzeitig behandelt werden 
sollen. Benötigt man zum Beispiel nie mehr als 20 
Elemente gleichzeitig, so erreicht man durch eine ent- 
sprechend kleinere Dimensionierung knapp 2K Spei- 
cherplatzerweiterung, die dann für eigene Erweiterun- 
gen zur Verfügung stehen. Das Programm ordnet bei 
Ausgaben die Elemente in den Summenformeln so, 
wie dies in der chemischen Literatur (Chemical 
Abstracts) üblich ist. 


Schnelle Eingabe und leichte Bedienung 


Es stehen folgende Optionen zur Verfügung: 


Taste "L’': 
Menüfenster löschen 


Taste ''D': 
Dialogfenster löschen 


Taste "E’: 

Erlaubt über Elementsymbole die Eingabe von Ele- 
menten und der zugehörigen Anzahl der Atome. 
Schon definierte Elemente bleiben erhalten, soweit 
sie nicht neu definiert werden. Das Nullsetzen der 
Elemente ist vorher mit “N“ möglich. 


Taste ''S’: 
Erlaubt eine Schnelleingabe von Summenformeln. 
Auch hier bleiben schon definierte Elemente erhal- 


LISTING 


ten. Ein Tip zur Eingabe: Als Formelendezeichen 
müssen Sie zweimal ““XX“‘ eingeben. Ist in einer For- 
mel ein Element nur einmal enthalten, so geben Sie 
dann bitte eine ““1“ ein. Beispiel: Schwefelsäure 
müssen Sie so eingeben: H2S104XX. 


Taste ''B’: 
Berechnen der Molmasse der im Rechner gespeicher- 
ten Summenformel. 


Taste '’C': 

Die Elementarzusammensetzung der jeweiligen Ver- 
bindung wird berechnet. Ausgegeben wird die Sum- 
menformel, Molmasse und die berechneten Analyse- 
daten (Elemente und deren prozentualer Anteil an 
der Verbindung). 


Taste "U": 

Chemische Analyse einer Verbindung (d.h. Elemente 
und deren prozentualer Anteil an der Verbindung 
mit Angabe des berechneten Atomverhältnisses der 
zugehörigen Summenformel). 


Taste ’'H’: 

Diese Option beinhaltet drei Möglichkeiten von 
Molaritätsberechnungen, welche als Untermenü im 
Dialogfenster eingeblendet werden. 

1. Möglichkeit: Eingabe in Gramm einer Verbindung 
sowie deren Summenformel. Ausgegeben wird die 
Summenformel, die Molmasse sowie die Anzahl der 
Mole, die der Masse entsprechen. 

2. Möglichkeit: Eingabe von Molzahl und Summen- 
formel. Berechnet werden Molmasse und Masse der 
Verbindung. 

3. Möglichkeit: Eingabe der Summenformel der Ver- 
bindung, gewünschte Lösungsmenge und Konzentra- 
tion. Angezeigt wird dann die Einwaage der Substanz 
in Gramm. 


Taste ''V": 
Bei dieser Option haben Sie drei Möglichkeiten von 
Verdünnungsberechnungen: 
1. Eingabe: Volumen, Konzentration (mol/Liter) so- 
wie gewünschte Konzentration. Berechnet wird das 
Volumen, auf welches die Lösung aufzufüllen ist. 
2. Eingabe der Konzentration einer Stammlösung, 
gewünschte Lösungsmenge und deren Konzentration. 
Berechnet wird die benötigte Stammlösung. 
3. Eingabe des Volumens, der Konzentration und des 
Endvolumens. Ausgegeben wird die Konzentration 
der Endlösung. 
Taste ''N’: 
Alle gespeicherten Elemente werden gelöscht, d.h., 
deren Atomzahl wird auf Null gesetzt. 
Taste "A": 
Beenden des Programmlaufes. Das Programm bleibt 
jedoch noch im Speicher. Es kann dann wieder neu 
gestartet werden. 

(JE) 
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100 


HHRHHHRHHHHRRISSHIESIESE SE SEE SE IE SEES EEE REM MENUEI 

110 ’* CHEMIE * 830 IF INKEY(58)=O THEN CALL 58BBO03: 
120 ’# VON * GOSUB 2800:CL5#1:REM ELEMENTEINGABE 
130 ’* ALF DENGLER * ! 

140 ’* FUER # 840 IF INKEY(69)=O THEN CALL 6&BB03: 
150 ’* SCHNEIDER AKTIV #* CLEAR:END:REM PROGRAMMENDE I 

160 ’*# CPC 464/664/6128 je* 850 IF INKEY( 36) =0 THEN CLS#2:REM M 
170 FEREEEHEEREUHUCHEHRUUENTEHRHENENH ENUEFENSTER LOESCHEN! 

180 87D IF INKEY(60)=0O THEN CALL &BB03: 
190 0 RERERRIEERESESETESESESESESETE TEN IESESESE SEITE IE GOSUB 4200:REM SUMMENFORMELEINGABE! 
195 ’HAUPTPROGRAMM: WINDOWS, DIMENS 880 IF INKEY(61)=O THEN CALL &BBO3: 
IONIERUNGEN UND BILDAUFBAU CLS#1:REM DIALOGFENSTER LOESCHEN! 
KT: EZ 2 = 2.2.2 2.2.2.2 .2.2.2.2.2.2.2.2.2.2.2.2.2:2.2.2:272°2 890 IF INKEY(46)=0O THEN CALL &BBO3: 
200 CLEAR:MODE 2:CL5 GOSUB 1500:REM ELEMENTE NULLSETZEN! 
210 WINDOW#1,2,52,6,24:WINDOW#2,54, 900 IF INKEY(54)=0 THEN CALL 8&BBO3: 
79,6,24:WINDOW#3,16,52,6,10 G605UB 1700:REM MOLMASSE BERECHNEN! 
220 WINDOW#4,2,52,11,24:WINDOW#5, 13 910 IF INKEY(62)=0O THEN CALL 8&BBO3: 


‚52,8,22 

230 IEZ=103: IEZ2=103:5FSUCH-10 

240 DIM MASSE( IEZ) ‚RMASSE( IEZ) ‚SYMB 
OLE$CIEZ) 

260 DIM IKON( IEZ2) ‚IELWAHL( IEZ2) ‚CA 
I( IEZ) ‚,CA2(IEZ) 

270 DIM NOMEN( IEZ2) ‚ANA( IEZ2) ‚ CHAN( 
IEZ) ,SUFORM( SFSUCH) 


280 LOCATE 15,3:PRINT "LOESEN CHEMI 
SCHER PROBLEME” :LOCATE 62,3:PRINT"M 
ENUE (M)" 


290 PLOT 1,1:DAAW 638, 1:DRAW 638,39 


GOSUB 1800:REM 
920 IF INKEY(42)=D THEN 
GOSUB 3300:REM 
FORMEL! 

930 IF INKEY(44)=0 THEN 


CHEMISCHE ANALYSE! 


CALL &BB03: 


CHEM. ANALYSE->SUMM. 


CALL &BBO3: 


GOSUB 4600:REM MOLARITAETSBERECHNUN 


GEN! 
335 IF INKEY(55)-0 THEN 


CALL &BB03: 


GOSUB 5100:REM VERDUENNUNGSBERECHNU 


NGEN! 
940 GOTO 820 
950 RETURN 


8:DRAW 1,398:DRAW 1,1 1000 werte 
300 PLOT 1,330:DRAW 638,330:PLOT 42 1005 ’# MENUE! * 
0,1:DRAW 420,398 1008 #rreereeee 


310 PLOT 20,330:DRAW 20,398:L0OCATE 
2,3:PRINT"”A" 


1010 LOCATE 2,3:PRINT "A" 


1020 LOCATE 55,6:PRINT N"MENUEFENST 
320 GOSUB 500:REM EINLESEN DES DATE EA LDOESCHEN (L)" 
NSATZES! 1030 LOCATE 55,7:PRINT "DIALOGFENS 
330 GOSUB 800:REM TASGTATURABFRAGE I T. LOESCHEN (D)"” 
340 END 1040 I_OCATE 55,9:PRINT "ELEMENTEIN 
[Jo Ju RA 2 2 2 5 2.2 222 2 2.2.2 2 2.2.2.2 2:2 222 2.22.22 GABE EI” 
505 ” EINLESEN DES DATENSATZESI 1050 LOCATE 55, 10:PRINT "SUMMENFORM 
[Je]: ad: 2 2 2 2 2 2 2 2 2.2 2 2 2.22. 2.2.2 2 222.2 2720202 


ELEINGABE (5)" 


520 FOR I=1 TO IEZ:READ RMASSE(I):N 1060 LOCATE 55, 12:PRINT "MOLMASSE B 

EXT I ERECHNEN (B)" 

530 FOR I=-1 TO IEZ:READ 5SYMBOLE$(I) 1080 LOCATE 55, 14:PRINT "CHEMISCHE 
:NEXT I ANALYSE (C)"” 

650 FOR I-1 TO IEZ:READ CGAI(I):NEXT 1090 LOCATE 55,15:PRINT "CHEM. ANAL 
I YSE->SUMM.F.(U)” 

660 FOR I=1 TO 14:CA2(I)=-CAI(I+2):N 1100 LOCATE 55, 17:PRINT "MOLARITAET 

EXT I SBERECHN. CH)” 

570 FOR I=16 TO 36:CA2(I)=CAICI+1): 1105 LOCATE 55, 18:PRINT "VERDUENNUN 

NEXT I GSBERECHN. (V)"” 

650 FOR I=38 TO IEZ:CA2(I)=CAICI):N 1110 LOCATE 55,20:PRINT "ELEMENTE N 

EXT I 


690 CA2( 15) =CA1( 1) :CA2( 37) =CA1(2) 


ULLSETZEN (N)” 
1120 LOCATE 55,22:PRINT 


"PROGRAMM B 


700 RETURN EENDEN (A)"” 

[a Ju Je LE 2 = 2.2.2 2 2.2.2 2.2 2.2 2 2 22 2 22 1130 LOCATE 2,3:PRINT "B" 

805 ’#* TASTATURABFRAGE! *# 1140 RETURN 

[a Ja]: Mad 22 2 = 2 2 2 22.2 22.2.2 2 2 22.202 a br] 0 [0 un = = = 2 2 2 2 2 2.2 2 2 22 2 22222202 202022020 
810 LOCATE 2,3:PRINT”B"” 1205 "ORDNEN DER SUMMENFORMEL NACH 


820 IF INKEY(38)=-O THEN GOSUB 1000: 


CHEMICAL ABSTRACTSI 
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1208 HH RR IHRE CH 


1210 LOCATE 2,3:PRINT "A" 

1220 A$="ZWEI"”:B$="ZWEI"” 

1230 FOR I=1 TO IEZ2:NOMEN( I) =0:NEX 
TI 

1240 FOR I=1 TO IELZAHL 

1250 IF IELWAHL(I)=6 AND IKON( IELWA 
HL(I))>O THEN A$="EINS" 

1260 IF IELWAHL(I)=1 AND IKON( IELWA 
HL(I))>O THEN B$="EINS" 

1270 NEXT I 

1280 IF A$<>"EINS"” OR B$<>"EINS” GO 
TO 1360 

1290 IZAHL=O 

1300 FOR I=1 TO IEZ 

1310 FOR J=1 TO IELZAHL 

1320 IF (CA1(I)=IELWAHL(J) AND IKON 
(IELWAHL( J))>O) THEN IZAHL=IZAHL+1:N 
OMEN( IZAHL) =J 

1330 NEXT J 

1340 NEXT I 

1350 GOTO 1430 

1360 IZAHL=O 

1370 FOR I=1 TO IEZ 

1380 FOR J=1 TO IELZAHL 

1390 IF (CA2(I)=IELWAHL(J) AND IKON 
( IELWAHL( J))>O) THEN IZAHL=IZAHL+1:N 
DMEN( IZAHL) =J 

1400 NEXT J 

1410 NEXT I 

1420 LOCATE 2,3:PRINT "”B"” 

1430 RETURN 

1500 HH HERR 


1505 ’# ELEMENTE NULLSETZENI # 
1508 mr HH HHHHRRHHIHIHIHHHRIEAHOH 
1510 LOCATE 2,3:PRINT"A"” 

1520 IELZAHL=O 

1530 FOR I=-1 TO IEZ 

1540 IKON( I) =0:CHAN( I) =O 

1550 NEXT I 

1550 GOSUB 3100:605UB 1200 

1570 LOCATE 2,3:PRINT"B” 

1580 RETURN 

1600 HH HRRRRRRIRRRRHR RSS 
1605 ’BERECHNEN DER HOCHAUFGELDOESTE 
N MOLMASSE RMASSI 

1608 HR RRRHR IRA 
1610 LOCATE 2,3:PRINT"A" 

1620. RMASS=O 

1630 FOR I=1 TO IELZAHL. 

1640 RMASS=RMASS+IKON( IELWAHL(I)) #R 
MASSE( IELWAHL(I)) 

1650 NEXT I 

1660 LOCATE 2,3:PRINT"B" 

1670 RETURN 

1700 HR HRHHRSHRHHHHHHIHIEIHIEHIE SEE 
1705 ’AUSGABE DER HOCHAUFGELOESTEN 
MASSE ! 

1708 HH RRRHRHRHRIHHIRHIIHIHSHAESTAH I 


1710 LOCATE 2,3:PRINT"A" 


1720 GOSUB 1600:REM BERECHNEN DER M 
OLMASSE! 

1730 CLS#1:CL5#3:PRINT#1:PRINT#1,"S 
UMMENFORMEL :" 

1740 PRINT#3:FOR I=1 TO IELZAHL:PRI 
NT#3, SYMBOLE$( IELWAHL( NOMEN( I))) ;IK 
ON( IELWAHL( NOMENCI)));:NEXT I 

1750 PRINT#3:PRINT#3, "MOLMASSE: ";R 
MASS 

1760 LOCATE 2,3:PRINT"B" 


1770 RETURN 
1800 HB BSHRSRIEARHESEIESESESESESESESEAESEAE IE NEN 


1805 ’BERECHNEN DER CHEMISCHEN ANAL 
YSE FUER DIE AKTUELLE SUMMENFORMEL ! 
1808 erstarrt RETTET 

1810 LOCATE 2,3:PRINT"A":CLS#1 

1820 FOR I=1 TO IEZ2:ANA( I)=0:NEXT 

I 

1830 GOSUB 1700:L0OCATE 2,3:PRINT"A"” 
:REM BERECHNEN DER MOLMASSE! 

1840 FOR I=1 TO IELZAHL 

1850 AN=( IKON( IELWAHL( I) ) #AMASSE( IE 
LWAHL(I))) /RMASS 

1860 ANA( IELWAHL( I) ) =ROUND( AN#10000 
)/100 

1870 NEXT I 


1880 CLS#4 

1890 A1I$="ELEMENT ":A2$="GEWICH 
T-% ":A3$=" "zAAg=" " 

1900 ZONE 7 


1910 PRINT#4:PRINT#f4," 
BERECHNETE ANALYSENDATEN 
4 

1920 IH1=INT( IZAHL/5) : IH3=1 
1930 FOR I=1 TO IH1 

1940 IH4=I#5 

1950 PRINT#4,AA$+A1$;:FOR J=IH3 TO 
IH4:PRINT#4, A3$+SYMBOLE$( IELWAHL( NO 

MEN(J))) ,:NEXT J 

1960 PRINT#4,A4$+A2$;:FOR J=IH3 TO 
IHA:PRINT#4, USING "#HHH.HH" ;ANACIEL 

WAHL( NOMEN( J))) ; :NEXT J:PRINT#4:PRI 

NT#A 

1970 IH3=IH4+1 

1980 NEXT I 

1990 IF IH3>IZAHL THEN LOCATE 2,3:P 
RINT"B"”:RETURN 

2000 PRINT#4,AA4$+A1$;:FOR J=IH3 TO 
IZAHL :PRINT#4, A3$+5YMBOLE$( IELWAHL( 

NOMEN( J))) , :NEXT J:PRINT#4A 

2010 PRINT#4,AA4$+A2$;:FOR J=IH3 TO 
IZAHL :PRINT#4 ,USING "#HHHH.#H” ;ANACI 

ELWAHL( NOMEN( J))) ; :NEXT J 

2020 LOCATE 2,3:PRINT "B" 

2030 RETURN 

2B00 RR III 
2805 ’SUMMENFORMELEINGABE UEBER ELE 

MENTSYMBOLE! 

BOB FHrBEstar rat share sea sheet 

2810 LOCATE 2,3:PRINT "A" 


":PAINT# 
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2820 CLS#1 

2830 LOCATE 17,8:PRINT " 

NGABE" 

2840 LOCATE 5,12:PRINT "GEZIELTE EI 

NGABE UEBER ELEMENTSYMBOLE" 

2850 LOCATE 5,15:PRINT "KEIN WEITER 

ES ELEMENT GEWUENSCHT: (XX) - 

2860 INPUT ELSM$:ELSYM$=UPPER$( ELSM 

$) 

2870 IF (ELSYM$="XX"”) THEN CLS#1:605 

UB 3100:605UB 1200:LOCATE 2,3:PRINT 
"B":RETURN 

2880 FOR I=1 TO IEZ 

2890 IF (SYMBOLE$( I)=ELSYM$) THEN I 

A=I:GOSUB 3000:G0T0 2820 

2900 NEXT I 

2910 GOTO 2820 

2920 RETURN 

3000 "rrHHRHRHRHHRRRRRIRSEIR SSR IAE 

3005 ’EINGABE DER ATOMANZAHL PRO EL 

EMENT! 

3008 7srarsestarst est sets listen 

3010 LOCATE 5,17:PRINT "WIEVIELE AT 

OME DES ELEMENTS ";SYMBOLE$(IA);” W 

ERDEN” 

3020 LOCATE 5,18:INPUT " GEWUENSCHT 
"AT 

3030 IF (AT>=0O AND AT<=1000) THEN IK 

ON( IA) =AT: IELZAHL=IELZAHL+1 ELSE GO 

TO 3010 

3040 RETURN 

3100 HH HHHHRRIESSRSSRRRISIHIHHIH SENSE 
3105 ’SORTIEREN DER ELEMENTE DER SU 

MMENFORMEL AUF DEN VEKTOR IELWAHL! 
3108 FH 

3110 FOR I=1 TO IEZ:IELWAHL(I)=O:NE 

ıTıI 

3120 


ELEMENTEI 


IELZAHL=O 

3130 FOR I=1 TO IEZ 

3140 IF (IKON(I)>O) THEN IELZAHL=IEL 
ZAHL +1: IELWAHL( IELZAHL) =I 

3150 NEXT I 

3160 FOR I=1 TO IELZAHL 

3170 IH=IELWAHL(I) 

3180 FOR J=I TO IELZAHL 

3190 IF(MASSE( IELWAHL( J))<=MASSE( IE 
LWAHL(I))) THEN IELWAHL( TI) -IELWAHL(J 
) :ITH2=J 

3200 NEXT J 

3210 TELWAHL( IH2) =IH 

3220 NEXT I 

3230 RETURN 

3300 "rm, H HR RR SHIRSESSESES EI 

3305 ’EINGABE EINER CHEMISCHEN ANAL 


YSE UND BERECHNUNG DER SUMMENFORMEL 
! 


3308 52 2 2 2 2.2 2 2 2 22.2.2 2.2 2.2.2 2:2.2.2.2.2.2.22 
3310 LOCATE 2,3:PRINT "A" 


3320 FOR I-1 TO IEZ:CHAN( I) =O:IKON( 
I)=0:NEXT I 


ZZ ——————m———.. ] ;. eh 
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3330 CHANZ=0:ENDE$="XX" 

3340 CLS#1:LOCATE 8,8:PRINT "EINGAB 
E EINER CHEMISCHEN ANALYSE" 

3350 LOCATE 8, 12:PRINT "BEENDEN DER 
EINGABE MIT XxX"” 

3360 LOCATE 7,15:PRINT "BEISPIEL: 
C37.02H2.22N18.5042.26XX" 

3370 LOCATE 5,16:PRINT" "; 

3380 INPUT CHEMAN$ : CHEMAN$=UPPER$(C 
HEMAN$) 

3390 FORMLEN=LEN( CHEMAN$) 

3400 JB=1:JL=0O 

3410 FOR I=1 TO FORMLEN 

3420 IF MID$ECHEMAN$, JB,2)=ENDE$ TH 
EN CLS#1:GOSUB 3700:605UB 1200:L0OCA 
TE 2,3:PRINT”B” :RETURN 

3430 ASCODE=ASC( MID$ÜCHEMAN$, JB, 1)) 
3440 IF (ASCODE>64 AND ASCODE<91) T 
HEN JL=JL+1 ELSE GOSUB 3500 

3450 JB=JB+1 

3460 NEXT I 

3470 GOTO 3340 

3480 RETURN 

3500 FRRUHAETEIESESESEIE HE IE TE SEE SE SEES SEE EHE IE EEE 
3505 ’ERMITTELN DES JEWEILIGEN ELEM 
ENTS UND DES %-ANTEILS AN DER VERBI 
NDUNG! 

3508 7HRERRatrrlttearleltseahle tt self street tt 
3510 IF (JL=0O OR JL>2) THEN JL=0:RE 
TURN 

3520 ELSYM$=MID$( CHEMAN$, JB-JL,JL) 
3530 FOR L=1 TO IEZ 

3540 IF SYMBOLE$(L)=ELSYM$ THEN IA= 
L:GOSUB 3570 ::RETURN 

3550 NEXT L 

3560 RETURN 

3570 JA=JB:JL=0O 

3580 AT=VAL( MID$( CHEMAN$, JB, FORMLEN 
-JB+1)) 

3590 IF (AT>=DO AND AT<=100) THEN CHA 

N( IA) SAT: CHANZ=CHANZ +1 

3600 RETURN 

3700 7333ER SERIE SEE EEE HEHE HTN 
3705 ’UMRECHNEN DER CHEMISCHEN ANAL 
YSE IN DIE ENTSPRECHENDE SUMMENFORM 
EL! 

3708 7uHSSHrstsrst reset seele stehts ltr 

3710 PROSUM=O 

3720 FOR I=1 TO IEZ:PROSUM=PROSUM+C 

HAN( I) :NEXT I 

3730 PROSUM2=100-PROSUM 

3740 IF PROSUM=100 THEN GOTO 3790 

3750 IF PROSUM>100 THEN CLS#1:PRINT 

#1:PRINT#1,"” DIE GESAMTEINGABEN 
IN % BETRAGEN ";PROSUM;" %":PRINTA 
1 IST DAS ERWUENSCHT C(J/N)";: 

INPUT#1,B2$:IF B2$="J" OR B2$="j" T 

HEN GOTO 3790 

3760 IF (PROSUM>100 AND (B2$="N"” OR 
B2$="n")) THEN CLS#1:PRINT#1:PRINT 
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#1:PRINT#1,” BITTE DIE EINGABE 

NEU BEGINNEN" :RETURN ELSE IF ( PROSU 

M>100 AND B2$<>"N"” AND B2$<>"n")GOT 

0 3750 

3770 IF PROSUM<100 THEN PRINT#1:PRI 

NT#1,”SOLL DIE DIFFERENZ VON ";PROS 

UM2;" PROZENT ":PRINT#1:INPUT#1, "AL 

5 SAUERSTOFF ANGENOMMEN WERDEN (J/N 

J";BB$:IF BB$="J3" OR BB$="j" THEN C 

HAN( 8) =CHAN( 8) +PROSUM2:GOTO 3710 

3780 IF BB$<>"N” AND BB$<>"n" GOTO 

3770 

3790 FOR I=1 TO IEZ 

3800 IF CHAN(I)>O THEN IKON( I) =CHAN 

( I) /RMASSE( I) :KLEINZ=IKON(I) 

3810 NEXT I 

3820 FOR I=1 TO IEZ 

3830 IF (IKON(I)>O AND IKON(I)<KLEI 

NZ) THEN KLEINZ=IKON( I) 

3840 NEXT I 

3850 FOR I=1 TO IEZ 

3860 IF IKON(I)>O THEN IKON( I)=IKON 

(I) /KLEINZ 

3870 NEXT I 

3880 GOSUB 3100:605UB 1200 

3890 CLS#5:CLS#1:PRINTf1," 
ATOMVERHAELTNIS DER ELEMENTE” 

3900 PRINT#1:PRINT#1:FOR I=1 TO IEL 

ZAHL :PRINT#5,5YMBOLE$( IELWAHL( NOMEN 

(I))) ;ROUND( IKON( IELWAHL( NOMEN(I))) 

#100) /100; :NEXT I 

3910 FOR I=1 TO SFSUCH: SUFORM( I) =0: 

NEXT I 

3920 FOR I=1 TO SFSUCH 

3930 FOR J=1 TO IELZAHL 

3940 IHILF1=ROUND( I#IKON( IELWAHL( NO 

MEN( J)))) : IHILF2=I#IKON( IELWAHL( NOM 

EN( J))) 

3950 SUFORM( I) =5UFORM( I) +ABS( IHILF1 

-IHILF?2) 

3960 NEXT J 

3970 NEXT I 

3980 SFFEHL=SUFORM( 1) :5FNA=1 

3990 FOR I-2 TO 5FSEUCH 

4000 IF SUFORM( I) <SFFEHL THEN SFNR= 

I:SFFEHL=SUFORM( I) 

4010 NEXT I 

4020 PRINT#5:PRINT#5:PRINT#5:PRINT# 

5, "SUMMENFORMELVORSCHLAG" 

4030 PRINT#5:FOR I=1 TO IELZAHL:PRI 

NT#5,SYMBOLE$( IELWAHL( NOMEN( I))); RO 

UND SFNAR#IKON( IELWAHL( NOMEN( I))));: 

NEXT I 

4040 PRINT#5:PRINT#5:PRINT#5,"FEHLE 

RSUMME: ";SFFEHL 

4050 LOCATE 13,22:PRINT"SEOLL DER SU 

MMENFORMELVORSCHLAG 

4060 LOCATE 13,23: INPUT "UEBERNOMME 

N WERDEN (J/N)";5UMF$ 

4070 IF EUMF$-"J3" OR SUMF$="j" THEN 


FOR I=1 TO IELZAHL : IKON( IELWAHL( NO 
MEN( TI) )) =ROUND( SFNR#IKON( IELWAHL( NO 
MENCI)))):NEXT I:GOTO 4100 
4080 IF SUMF$<>"N"” AND SUMF$<>"n" G 
0OTO 4060 
4090 GOSUB 1500:REM ELEMENTE NULLSE 
TZEN! 

4100 LOCATE 2,3:PRINT"B"” 
4110 RETURN 
A20OO ERrERE a seeEeEEEEFIEEIR EIERN 


ra "STRINGEINGABE DER SUMMENFORME 
A2OB EEE Streets 
4210 LOCATE 2,3:PRINT"A"”:ENDE$="XxX" 
4220 CLS#1 

4230 LOCATE 17,8:PRINT"SUMMENFORMEL 
EINGABE " 

4240 LOCATE 14,12:PRINT"BEENDEN DER 
EINGABE MIT Xx" 

4250 LOCATE 17, 14:PRINT"BEISPIEL:C2 

H601XX" 

4260 LOCATE 5,16:PRINT"” "; 


4270 INPUT SFORM$:SFORM$=UPPER$( SFO 
AM$) 


42B0 
4290 


FORMLEN=LEN( SFORM$) 

JB=1:J1L=0 

4300 FOR I=1 TO FORMLEN 

4310 IF MID$(SFORM$, JB,2)=ENDE$ THE 
N CLS#1:6G05UB 3100:605UB 1200:LOCAT 
E 2,3:PRINT”B” :RETURN 

4320 ASCODE=ASC(MID$( SFORM$,JB,1)) 
4330 IF (ASCODE>64 AND ASCODE<91) T 
HEN JL=JL+1 ELSE GOSUB 4400 

4340 JB=JB+1 

a350 NEXT I 

4360 GOTO 4220 

4370 RETURN 

LU oTe nZ 2 2 2 2 2.2 2.2.2 2.2 2:22.22 2.2.2°2:2.2°2.2.20202 3 
4405 ’ERMITTELN DES JEWEILIGEN ELEM 
ENTS UND DER ZUGEHOERIGEN ATOMANZAH 
L.! 
4408 
4410 
TURN 
4420 


RRRRSCHRRIESISIEIHHIRIIHRIHIESIESERE ESTATE 
IF (JL=0 OR JL>2) THEN JL=0:RE 


ELSYM$=MID$( SFORM$, JB-JL,JL) 
4430 FOR L=1 TO IEZ 

4440 IF SYMBOLE$(CL)=ELSYM$ THEN IA= 
L:GOTO 4470 


4450 NEXT L 

4460 RETURN 

A470 JA=JB:JL=O 

4480 FOR K=1 TO FORMLEN-JB+1 


4490 ASCODE=ASC( MID$( SFORM$,JA,1)) 
4500 IF (ASCODE>47 AND ASCODE<58B) T 
HEN JL=JL+1 ELSE AT=VAL(MID$( SFORM$ 
‚JB,JL)) :GOTO 4540 

A510 JA=JA+1 

4520 NEXT K 

4530 AT=VAL(MID$(S5FORM$,JB,JL)) 
4540 IF AT>O THEN IKON( IA) =AT:IELZA 
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HL=IELZAHL +1 


4550 JL=D 

4560 RETURN 

A6DO 7433ER HEERES SE IE SE SESESESESE SEE EI IE SEE IE 
4605 ’* MOLARITAETSBERECHNUNGEN! #* 
A608 7ER IESEIEEIEIESETESESESE SEE SEE TEE IE EEE 
4610 LOCATE 2,3:PAINT"A":CLS#1 

4620 LOCATE 5,8:PRINT"EINGABE: MASS 


E [G] UND SUMMENFORMEL (1)" 


4630 LOCATE 5,9:PRINT"” DER 
VERBINDUNG" 

4640 LOCATE 5,10:PRINT"AUSGABE: MOL 
DER VERBINDUNG” 

4650 LOCATE 5,12:PRINT"EINGABE: MOL 
ZAHL UND SUMMENFORMEL (2)"” 

4660 LOCATE 5, 13:PRINT" DER 
VERBINDUNG" 

4670 LOCATE 5, 14:PRINT"AUSGABE: MAS 

SE [6] DER VERBINDUNG " 

4680 LOCATE 5,16:PRINT"EINGABE: GEW 


UENSCHTE LOESUNGSMENGE [ML] (3) "” 


4690 LOCATE 5,17:PRINT" GEW 
UENSCHTE KONZENTR. [MOL/L]I" 
4700 LOCATE 5,18:PRINT"” SUM 


MENFORMEL DER VERBINDUNG" 

4710 LOCATE 5,19:PRINT"AUSGABE: EIN 

WAGE [6G]" 

4720 LOCATE 5,21:INPUT "GEWUENSCHTE 
ROUTINE (KEINE=4) "=MNR:MNR=INT( 

MNR) 

4730 IF MNR<1 OR MNR>3 THEN CLS#1:L 
OCATE 2,3:PRINT"”B” :RETURN 

4740 DN MNR GOSUB 4800,4900,5000 

4750 LOCATE 2,3:PRINT”B” 

4760 RETURN 

L.V:Tejı eng. 2 = 2 2.22.2222 .2.2.2 2.2.2.2 2222 222.222 

4805 ’UMRECHNUNG: MASSE [G] -> MOL 

4808 HH RRRSRHHSRHRHHRHSHHRRIHIHIHHREN 

4810 CLS#1:LOCATE 10,8:PRINT"WIEVIE 

L GRAMM DER VERBINDUNG" 

4820 LOCATE 10,10:INPUT"LIEGEN VOR 
"; GRAMMIN 

4530 GOSUB 4200:REM EINGABE DER ENT 

SPRECHENDEN 5UMMENFORMEL DER VERBIN 

DUNG! 

4540 GOSUB 1700:REM MOLMASSENBERECH 

NUNG MIT AUSGABE VON MOLMASSE UND F 

DRMEL_! 

4850 MOLZAHL=GRAMMIN/RMASS:MOLZAHL= 
INT( MOLZAHL*100000) / 100000 

4860 LOCATE 6, 13:PRINT GRAMMIN; "GRA 

MM ENTSPRECHEN ";MOLZAHL; "MOL" 

4870 RETURN 

4900. RR HR HRHHRRRRRSRHRRRHHHRTIHTRIEEN 

4905 ’UMRECHNUNG: MOL -> MASSE 

4908. RR RRRRHHRRRRSRHHRRHHHHIHIEN 

4910 CLS#1:LOCATE 10,8:PRINT"”WIEVIE 

L MOL DER VERBINDUNG" 

4920 LOCATE 10,10:INPUT"LIEGEN VOR 
";MOLZ 


4930 GOSUB 4200:REM EINGABE DER ENT 
SPRECHENDEN SUMMENFORMEL DER VERBIN 

DUNG! 

4940 GOSUB 1700:REM MOLMASSENBERECH 
NUNG MIT AUSGABE VON MOLMASSE UND F 
DRMEL_! 

4950 GRAMM=MOLZ*#RMASS : GRAMM=INT( GRA 

MM=100000) / 100000 

4960 LOCATE 6, 13:PAINT MOLZ;"MOL EN 

TSPRECHEN "; GRAMM; "GRAMM" 

4970 RETURN 

SOOO Hr seatatselt este este tele seits lettseltltt 
5005 ’BERECHNUNG: EINWAAGE [G] FUER 
EINE BEST. KONZENTRATION [MOL/L] U 
ND EINE GEWUENSCHTE LOESUNGSMENGE [ 
ML] ! 

nn THESE TE TEE IE TEE IE THESE IE IE IE SEE IE IE IE IE IE 
5010 CLS#1:LOCATE 6,8: INPUT"GEWUENS 
CHTE KONZENTRATION [MOL/L]: ";MOLAR 
5020 LOCATE 6, 10: INPUT"GEWUENSCHTE 
LOESUNGSMENGE [ML]: ";LOESUNG 

5030 GOSUB 4200:REM EINGABE DER ENT 

SPRECHENDEN SUMMENFORMEL DER VERBIN 
DUNG! 

5040 GOSUB 1700:REM MOLMASSENBERECH 
NUNG MIT AUSGABE VON MOLMASSE UND F 
DRMEL! 

5050 GRAMMEIN=MOLAR#RMASS#LOESUNG/ 1 
D00 :GRAMMEIN=INT( GRAMMEIN*100000) / 1 
00000 

5060 LOCATE 6, 14:PRINT GRAMMEIN; "GR 
AMM AUF"; LOESUNG; "MILLILITER" 

5070 LOCATE 6,16:PAINT " ERGEBEN EI 
NE” ;MOLAR; "- MOLARE LOESUNG" 


5080 RETURN 

5100 "RR RRHHRRRRRIRRISHHIIIHIRIEIRIERE SIE 
5110 °# VERDUENNUNGSBERECHNUNGEN *# 
5120 "HRS HRRRHSHSHISRRISRIESHIESRESEIERTNE 
5130 LOCATE 2,3:PRINT"A":CLS#1 

5140 LOCATE 5,8:PRINT"EINGABE: VOLU 
MEN [ML] 1)" 

5150 LOCATE 5,9:PRINT"” KONZ 
ENTRATION [MOL/L]” 

5160 LOCATE 5,10:PRINT” GEW 
. KONZENTRATION [MOL/L]" 

5170 LOCATE 5,11:PRINT"AUSGABE: VOL 
UMEN, AUF WELCHES DIE " 

5180 LOCATE 5,12:PRINT" LOE 
SUNG AUFZUFUELLEN IST” 

5190 LOCATE 5,14:PRINT"EINGABE: KON 
ZENTRATION [MOL/L] (2)" 

5200 LOCATE 5,15:PRAINT" GEW 
- KONZENTRATION [MOL/L]" 

5210 LOCATE 5,16:PRINT" GEW 
. LOESUNGSMENGE [ML]"” 

5220 LOCATE 5,17:PRINT"AUSGABE: BEN 
OETIGTE STAMMLOESUNG [ML]" 

5230 LOCATE 5,19:PRINT"EINGABE: VOL 
UMEN [ML] (3)" 

5240 LOCATE 5,20:PRINT" KON 
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ZENTRATION [MOL/L]” 


5250 LOCATE 5,21:PRINT"” END 
VOLUMEN [ML]” 
5260 LOCATE 5,22:PRINT"AUSGABE: END 


KONZENTRATION” 

5270 LOCATE 5,24:INPUT "GEWUENSCHTE 
ROUTINE (KEINE=4) : ";MNA:MNA=INT( 

MNA) 

5280 IF MNR<1 OR MNR>3 THEN CLSf1:L 
OCATE 2,3: PAINT"B":RETURN 

5290 ON MNA GOSUB 5400, 5500,5600 

5300 LOCATE 2,3:PRINT”B" 

5310 RETURN 

SADOD "HH teen KERN 

5410 ’VERDUENNUNGSRECHNUNGEN OPTION 
1 

SA2PO TESESrshshstre lt set sh se shatlh st ltle sts 
5430 CLS#1:LOCATE 6,8: INPUT"KONZENT 
RATION [MOL/L] : ";MOLAR 

5440 LOCATE 6, 10: INPUT"LOESUNGSMENG 

E [ML] : ";LOES1 

5445 LOCATE 6, 12: INPUT "GEWUENSCHTE 

KONZENTRATION [MOL/L] : ";KONZ 

5450 LOESUNG=MOLAR#LOES1/KONZ :LOESU 

NG=INT( LOESUNG* 100000) / 100000 

5460 IF LOESUNG<LOES1 THEN LOCATE 6 
‚15:PRINT"DIE LOESUNG MUESSTE AUF": 
LOCATE 5, 17:PRINT LOESUNG; "MILLILIT 
ER EINGEENGT WERDEN" :RETURN 

5480 LOCATE 6,15:PRINT "DIE LOESUNG 

AUF" ; LOESUNG; "MILLILITER 
LOCATE 6, 17:PRINT "AUFZUFUELLE 


RETURN 
EEE 2 2 22 2.2 22 2.2 2.22.2782 2.2°2 02.22.22 .0 


"VERDUENNUNGSRECHNUNGEN OPTION 


PER IEEIETETE TE TE TEE TEE TESTER EIER IE ESTATE 


5530 CLS#1:LOCATE 6,8: INPUT"KONZENT 

RATION [MOL/L] : ";MOLAR 

5540 LOCATE 6, 10: INPUT"GEWUENSCHTE 

KONZENTRATION [MOL/L] : ";KONZ 

5542 IF KONZ>MOLAR THEN LOCATE 6,15 
:PRINT"DA& WUERDE EINE EINENGUNG DE 

R":LOCATE 6, 17:PRINT"STAMMLOESUNG E 

RFORDERN" :RETURN 

5545 LOCATE 6, 12: INPUT"GEWUENSCHTE 

LOESUNGSMENGE [ML] : ";LOES1I 

5550 LOESUNG=KONZ/MOLAR#LOES1:LOESU 

NG=INT( LOESUNG* 100000) / 100000 

5560 LOCATE 6,15:PRINT "ES WERDEN”; 

LOESUNG; "MILLILITER" 

5570 LOCATE 6,17:PRINT "DER STAMMLO 

ESUNG BENOETIGT" 

5590 RETURN 

5600 "RHRHHHRRRRR RIESTER AIRES IE 
5610 ’VERDUENNUNGSRECHNUNGEN OPTION 
3 

5620 

5630 


SHRRHHRHSHHRHHEISHIRISIESESESESE SENSE 
CLS#1:LOCATE 6,8: INPUT"KONZENT 


RATION [MOL/L] : ";MOLAR 

5640 LOCATE 6, 10: INPUT"LOESUNGSMENG 
E [ML] : ";LOES1 

5650 LOCATE 6, 12:INPUT"ENDVOLUMEN [ 
ML] : ";LOESUNG 

5660 KONZ=MOLAR#LOES1/LOESUNG:KONZ- 
INT( KONZ*100000) / 100000 

5670 LOCATE 6,15:PRINT "DIE ENDLOES 
UNG HAT EINE KONZENTRATION" 

5680 LOCATE 6, 17:PRINT "VON" ;KONZ;" 
LMOL/L]" 

5690 RETURN 

8000 "sreereeunenee 

8002 ’* DATENSATZ *# 

8003 "see 

8085 REM HOCHAUFGELOESTE MASSEN! 
8090 DATA 1.0079,4.00260,6.941,9.01 
218, 10.81 

8100 DATA 12.011,14.0067, 15.9994, 18 
. 998403, 20.179 

8110 DATA 22.98977,24.305,26.98154, 
28.0855, 30.97376 

8120 DATA 32.06,35.453,39.948,39.09 
83,40.08 

8130 DATA 44.9559,47.90,50.9414,51. 
996,54.9380 


8140 DATA 55.847,58.9332,58.70,63.5 
46,65.38 

8150 DATA 69.72,72.59,74.9216,78.96 
‚79.904 

8160 DATA 83.80,85.4678,87.62,88.90 
59,91.22 

8170 DATA 92.9064,95.94,97.0,101.07 
‚102.9055 

8180 DATA 106.4,107.868,112.41,114. 
82,118.69 

8190 DATA 121.75, 127.60, 126.9045,13 


1.30, 132.9054 

8200 DATA 137.33, 138.9055,140.12,14 
0.9077, 144.24 

8210 DATA 145.0,150.4,151.96, 157.25 
‚158.9254 

8220 DATA 162.50, 164.9304, 167.26, 16 
8.9342, 173.04 

8230 DATA 174.97,178.49,180.9479, 18 
3.85, 186.207 

8240 DATA 190.2,192.22,195.09,196.9 
665, 200.59 

8250 DATA 204.37,207.2,208.9804,209 
.0,210.0 

8260 DATA 222.0,223.0,226.0254,227. 
0278, 232.0381 

8270 DATA 231.0359,238.029,237.0482 
‚244.0,243.0 

8280 DATA 247.0,247.0,251.0,254.0,2 
57.0 
8290 
8305 
8310 
8320 


DATA 258.0,259.0,260.0 

REM ELEMENTSYMBOLE! 

DATA H,HE,LI,BE,B,C,N,O,F,NE 
DATA NA,MG,AL,SI,P,S,CL,ARA,K,C 
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A 

8330 DATA SC,TI,V,CR,MN,FE,CO,NI,CU 
ZN 

’ 

8340 DATA GA,GE,AS,SE,BR,KR,RB,SRA,Y 
ZA 

’ 

8350 DATA NB,MO,TC,RU,AH,PD,AG,CD,I 
N,SN 

8360 DATA 5B,TE,I,XE,C5,BA,LA,CE,PR 
‚ND 

8370 DATA PM,SM,EU,GD,TB,DY,HO,ER,T 
M,YB 

8380 DATA LU,HF,TA,W,RE,08,IR,PT,AU 
HG 

L) 

8390 DATA TL,PB,BI,PO,AT,AN,FR,RA,A 
C,TH 

8400 DATA PA,U,NP,PU,AM,CM,BK,CF,ES 
‚FM 

8410 DATA MD,NO,LR 

8915 REM ELEMENTREIHENFOLGE FUER KO 


HLENWASSERSTOFFE NACH CHEMICAL ABST 
RACTS! 

8920 DATA 6,1,89,47,13,95,18,33,85, 
79,5,56,4,83,97,35,20,48,58,98 

8930 DATA 17,96,27,24,55,29,66,68,9 
9,63,9,26, 100,87,31,64,32,2,80,72 
8940 DATA 67,53,49,77,19,36,57,3,10 
3,71,101,12,25,42,7,11,41,60, 10,28 
8950 DATA 102,93,8,76,15,91,82,46,6 
1,84,59,78,94,88,37,75,45,86,44, 16 
8960 DATA 51,21,34,14,62,50,38,73,6 
5,43,52,90,22,81,69,92,23,74,54,39 
8970 DATA 70,30,40 


LÖSEN CHEMISCHER 
PROBLEME 


MENÜFENSTER LÖSCHEN (L) 
DIALOGFENST. LÖSCHEN (D) 


SUMMENFORMEL: 
H204S1 
MOLMASSE: 98,0734 


ELEMENTEINGABE (E) 
SUMMENFORMELEINGABE (S) 


BERECHNET ANALYSEN- 


MOLMASSE BERECHNEN (B) 


CHEMISCHE ANALYSE (cC) 
CHEM. ANALYSE-SUMM.F. (U) 


H 0 S 


MOLARITÄTSBERECHNG. 
VERDÜNNUNGSBERECHN. 


(H) 
(v) 


ELEMENTE NULLSETZEN (N) 


PROGRAMM BEENDEN (A) 


BREAKER 


Gute Ideen kommen immer wieder. Die fast schon 
vergessenen Wallbreaker-Spiele erleben zur Zeit eine 
Renaissance. Aber nicht nur kommerzielle Software 
— etwa Arkanoid — findet das rege Interesse der 
Freaks, sondern es wird auch wieder an diesen Spie- 
len programmiert. Zu erklären ist dies wohl nur mit 
den zahlreichen ‚‚Neueinsteigern“ beim CPC. Die 
Bezeichnung ‚Alter Hut“ hat für sie keine Gültig- 
keit, man war ja gar nicht von Anfang an dabei. 

Die Spielidee von Breaker ist so alt, daß sie wohl 
trotzdem jeder kennt, der einen Computer zu Hause 
hat. Aber immer wieder ist sie faszinierend. Auch 
unser Autor Markus Schöngarth wurde angeregt, die- 
ses Spiel einmal selbst zu programmieren. Und hier 
ist sein Listing, das auch das Einstellen der Spielge- 
schwindigkeit zuläßt. 

Für die, die das Spiel noch nicht kennen (höchst 
unwahrscheinlich), hier eine kurze Anleitung: Ziel 
des Spiels ist es, eine Mauer mit einem immer wie- 
der zurückspringenden Schläger abzuräumen. Am 
unteren Bildschirmrand befindet sich ein Schläger, 
mit dem Sie den Ball zurückprallen lassen können. 
Dieser Schläger wird mit dem Joystick gesteuert. 
Will jemand aber mit den Cursortasten spielen, so 
muß man in Zeile 1320 den Wert 75 in 1 und den 
Wert 74 in 8 umwandeln. 


(JE) 


LISTING 


10 U ERESERRSESESTSESESESESESE STE SEE SE SE REISE SER IE SEITE IE 
2 #* BREAKER * 
3 #* VON * 
a '* MARKUS SCHOENGARTH * 
5 # FUER * 
6 '* SCHNEIDER AKTIV * 
7. 8 CPC 464/664/6128 je* 
BO ORRRRRHRHRRRISHIRRIFSE NEUEN 
9 ’ 

10 

20 


30 ON ERROR GOTO 2030 

40 DEFINT a-z 

50 * Zeichen definieren 

60 SYMBOL AFTER 32 

70 SYMBOL 200,0, 126,126, 126,126, 126 
‚126 

80 SYMBOL 201,255,128,128,128, 128,1 
28, 128,255 

90 SYMBOL 45,255,255,255,255,255,25 
5,255, 255 

100 SYMBOL 168,1,3,7,15,15,7,3,1 
110 SYMBOL 169, 128, 192,224,240,240, 
224,192,128 


120 SYMBOL 202,0,0,16,56,124, 124,56 
16 

’ 

130 SYMBOL 203,0,0,8,4,2,2,4,8 

140 * Titelbild 


150 
160 


level=1:CLEAR:DEFINT a-z 

DIM feld( 20,25) 

170 GOSUB 1790 

180 MODE 1:BORDER 0:INK 0,4:INK 1,2 
0:INK 2,6:INK 3,18 

190 PEN 1:LOCATE 1,1:PRINT STRAING$( 
40,207); :LOCATE 1,25:PRINT STRING$( 
40,207); 

200 FOR i=2 TO 24:LOCATE 1,i:PRINT 

CHR$( 207) ; :LOCATE 40,i:PRINT CHA$(2 
07) ; :NEXT 

210 FOR i=3 TO 24:LOCATE 2,i:PRINT 

CHA$( 143) ; :LOCATE 39,i:PRINT CHR$( 1 
43) ; :NEXT 

220 LOCATE 2,2:PRINT STRING$({ 38, 143 
) :LOCATE 2,24:PRINT STRING$( 38, 143) 


230 PEN 3:FOR i=1 TO 7:LOCATE 4,1i+3 
:PRINT nam$(i) :NEXT 

2A0 PEN 2:LOCATE 12,13:PRINT "Gesch 
rieben von " 

250 LOCATE 11,15:PRINT "Markus 
oengarth" 

260 PEN 1:LOCATE 7,18:PRINT "Drusck 
e eine Taste zum Start" 

27D WHILE INKEY$="":WEND 

280 PEN 3:LOCATE 5,21:PRINT "Welche 
Geschwindigkeit ( 1”; CHRA$( 152) ; : INP 

UT "6)";ges 

290 IF ges<1 OR ges>6 THEN PRINT CH 

A$L7) :GOTO 280 

300 PEN 3:LOCATE 3,21:PRINT "Bei we 


Sch 


lchem Bild willst Du anfangen":LOCA 
TE 19,23: INPUT level 

310 IF level<1 OR level>9 THEN 300 
320 ba=5 

330 MODE 0:INK 0,0:INK 1,24:INK 2,1 
8:INK 3,6:INK 4,1:INK 5,11:INK 6,7: 


INK 7,24:INK 8,18:INK 9,8:INK 11,6: 
INK 14,1 

340 CLS 

350 GOSUB 1760 

360 PEN 9:LOCATE 1,1:PRINT CHR$( 214 


) STRING$( 18, 245) CHR$( 215) 

370 FOR i=2 TO 23:LOCATE 1,i:PRINT 
CHR$( 246) :LOCATE 20,i:PRINT CHA$( 2A 
7); :NEXT 

380 PEN 1:PAPER O 

390 PRINT CHR$( 22) CHR$C 1) 

400 ON level GOTO 450,520,620,710,8 
10,910,1000, 1090, 1170 

410 7 ee RRHRRRRRRRHIHRIRHHREIIEHEIENE 
420 * # LEVEL 1 * 
430 7 MRRRRRRRRRRRHHHRRRRHRRIEISEN 
4a0 

450 FOR i=7 TO 13:FOR j=8 TO 14 

460 LOCATE j,i 

470 PRINT CHR$( 15) CHR$( i-6) CHA$( 200 
) CHR$( 15) CHR$( 14) CHR$( 8) CHA$( 201) 
480 feld( j,i)=1 

490 NEXT:NEXT 

500 abr=49 

510 GOTO 1270 

s20 7 HRS 
530 ” *# LEVEL 2 * 
Ss10 7 HRS SSHRHHRRRRRRIRSERRRSR RESET 
550 

560 FOR i=7 TO 13 STEP 1:FOR j=-i-3 
TO ( 13-i) +10 

570 LOCATE 4,i:PRINT CHR$( 15) CHR$(i 
-6) CHR$( 200) CHR$( 15) CHR$( 14) CHA$( B) 
CHR$( 201) 

580 feld( j,i)=1 

590 NEXT:NEXT 

600 abr=49 

610 GOTO 1270 

6270 7 HRS 
630 ” * LEVEL 3 # 
640 7 FRECHE HHHHUNHEREHEN 
650 

660 FOR i=5 TO 10:FOR j=3 TO 8:LOCA 
TE 3jJ,i:PRINT CHR$( 15) CHR$( i) CHA$( 20 
2) CHR$( 15) CHA$L( 14) CHA$( 8) CHR$L( 203) : 
feld( j,i)=1 

670 LOCATE 3j+10,1i:PRINT CHA${ 15) CHR 
$(i)CHRA$( 202) CHA$( 15) CHA$( 14) CHR$( 8 
)CHA${ 203) :Feld( j+10,i)=1 

680 NEXT :NEXT 

690 abr=72 

700 GOTO 1270 

710 7 See 


720 ’ * LEVEL 4 * 
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730 ’ 
740 
750 FOR i=4 TO 7:FOR j-i-2 TO (13-i 
)+10 

760 LOCATE j,i:PRINT CHR$C 15)CHR$LCi 
) CHR$( 200) CHR$C 15) CHA$C 14) CHA$C 8) CH 
A$( 201) :Feld( j,i) =1:NEXT:NEXT 

770 FOR i=8 TO 12:FOR j=(12-i)+3 TO 
i+5 

780 LOCATE 3j,i:PRINT CHRA$( 1S)CHR$Ci 

) CHA$( 200) CHA$C 15) CHR$C 14) CHA$L BICH 

R$C201) :Feld( j,i)=1:NEXT:NEXT 


FARERECHEHHIN NEN 


790 abr=115 

800 GOTO 1270 

BID 7 SEARSrskssarsearstst at taeeeen 
820 ’ * LEVEL 5 * 
830 7 Rss EEE 
840 

850 


FOR i=-5 TO 10:FOR j-2 TO i-1 
860 LOCATE J,i:PRINT CHR$( 15) CHR$(i 
) CHR$( 200) CHR$( 15) CHR$( 14) CHA$( 8) CH 
A$C201) :feld( j,i)=1 

870 LOCATE ( j+20)-i,i:PRINT CHR$( 15 
) CHR$( i) CHR$( 200) CHR$C 15) CHR$L 14) CH 
AR$C8)CHA$C201) :Feld(( j+20)-i,i)=1 


880 NEXT :NEXT 

BIO abr=66 

900 GOTO 1270 

GIO 7 KURSE EHUHEHUHRELIEHNEN 

920 ’ *# LEVEL 6 * 

930 7 MRSRStstsesesgseseseseeHEHHHÄHHHHHHEN 

940 

950 FOR i=4 TO 11 STEP 2:FOR j=5 TO 
15 

960 LOCATE j,i:PRINT CHRA$( 15) CHR$(i 


) CHAR$( 200) CHR$( 15) CHR$( 14) CHR$( 8) CH 
R$( 201) :feld( j,i)=1 

970 NEXT:NEXT 

980 abr=44 

990 GOTO 1270 

1000 7 FERHHHeeeEEHCHC HEN EHEN 
1010 ” * LEVEL 7 * 
1020 7 FHRHRERHEEEHEEEHHIEHHEEHEENEN 
1030 FOR i=3 TO 8:FOR j=( 12-i)+3 TO 
i+5 

1040 LOCATE 3j,i:PRINT CHA$( 15) CHR$( 
i) CHR$( 200) CHR$( 15) CHA$C 14) CHR$(B)C 

HR$C201) :Feld( J,i)=1:NEXT:NEXT 

1050 FOR i=9 TO 13:FOR j=i-3 TO (13 

-i) +10 

1060 LOCATE 3j,i:PRINT CHRA$( 15) CHA$( 

i) CHR$L 200) CHR$( 15) CHA$( 14) CHR$(B)C 

HR$( 201) :Feld( J,i)=1:NEXT:NEXT 

1070 abr=41 

1080 GOTO 1270 

1090 7 SEE EEHEEECHEHUHEEEHTEN 
1100 * * LEVEL 8 * 
1110 7 FRRERecHereHHEHEHEEHENE 


1120 FOR a=3 TO 11:FOR b=a TO (B-a) 


1130 LOCATE b,a:PRINT CHRA$( 15) CHR$( 
b) CHR$( 200) CHR$L 15) CHA$( 14) CHA$( 8) C 
HA$(201) :Feld(b,a)=1:LOCATE b+6,a:P 
RINT CHR$( 15) CHRA$C b) CHA$L 20 

D) CHR$( 15) CHR$( 14) CHR$L 8) CHR$( 201) : 
feld(b+6,a)=1 


1140 NEXT:NEXT 

1150 abr=63 

1160 GOTO 1270 

1170 7° SRREEEEHEEcHEEERET HEHE 
1180 ” * LEVEL 9 * 
1190 7 REREHEEEE EEE EHE 
1200 FOR a=3 TO 7:FOR b=a TO (5-a) + 
9 

1210 LOCATE b,a:PRINT CHRA$( 15) CHR$( 


a) CHA$( 200) CHA$( 15) CHR$C 14) CHR$(B8)C 
HR$( 201) :feld(b,a)=1:LOCATE b+6,a:P 
RINT CHR$( 15) CHR$( a) CHA$( 20 

DO) CHR$( 15) CHR$( 14) CHR$( 8) CHR$( 201) : 
feld(b+6,a)=1 

1220 NEXT :NEXT 

1230 FOR a=8B TO 12:FOR b=a-5 TOD (10 
-a) +9 

1240 LOCATE b,a:PRINT CHR$( 15) CHR$( 
b) CHR$( 200) CHR$( 15) CHR$( 14) CHR$( B)C 
HA$( 201) :Feld(b,a)=1:LOCATE b+6,a:P 
RINT CHR$( 15) CHR$( b) CHA$( 20 

DO) CHR$C 15) CHR$( 14) CHR$C 8) CHR$( 201): 
feld(b+6,a)=1 


1250 NEXT:NEXT 

1260 abr=92 

1270 PRINT CHR$L22)CHR$(O) :PEN 1 
1280 EVERY 10-ges,O GOSUB 1360 

1290 

1300 PRINT CHRA$L 22) CHR$(O) ;:PEN 1 
1310 LOCATE pox,24:PEN 1:PRINT CHR$ 


( 32) ;CHR$( 168) CHR$( 143) CHA$( 143) CHR 

$( 169) CHR$( 32) 

1320 IF INKEY(75)=D AND pox<15 THEN 
pox=pox+1 ELSE IF INKEY(74)=O AND 
pox>1 THEN pox=pox-1 

1330 IF gy=1 THEN gy=0:6G0T0 1540 
1340 IF feld=abr THEN 1890 

1350 GOTO 1310 

1360 7 SH HHSHRHHRHRHHHSHHIHHSHHIIHIESEIEH 
1370 ” * Ball bewegen # 
ic 1: To LG = = 2 = 2 2.2.2 2.2.2 2.2.2272. 202.2.2.2.2.2.202.202 
1390 

1400 LOCATE bpox,bpoy:PRINT CHR$( 32 

) 

1410 bpox=bpox+twx:bpoy=bpoytwy 

1420 PEN 11:LOCATE bpox,bpoy:PRINT 
CHR$( 231); 

1430 IF feld(bpox,bpoy)=1 THEN feld 
(bpox,bpoy) =0:50UND 1,bpoy*#2+150, 10 
‚15:wy=-wy:feld=feld+i 

1440 IF bpoy=2 THEN SOUND 2,bpoy*2+ 
550, 10,15:wy=-wy ELSE IF bpoy>=23 T 
HEN GOSUB 1470 


+B 1450 IF bpox=-2 OR bpox=19 THEN 50UN » 
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D 2,bpoy*2+1050,10,15:SOUND 1,bpoy* 
2+550,20, 15:wx=—-wx 

1460 LOCATE pox,24:RETURN 

1470 17 oO SEREEHEHRRSEEC HE ERENEHENEEN 
1480 ' * Ball getroffen ? 

1490 7 RERHEeREEEHEEREREN EHE EEE 
1500 

1510 IF pox+1<=bpox AND pox+4A4>=bpox 
THEN wy=-wy:FOR i=15 TO 10 STEP -1 
:SDUND 3,500,5,i:NEXT ELSE gy=1:RET 

URN 

1520 IF INTERND*2)=1 THEN LOCATE bp 
ox,bpoy:PRINT CHR$( 32) ; :bpoy=22 
1530 RETURN 

1540 7 ERRHRHRHRHRRRIEH EHEN 
1550 ’ * Naechster Ball x 
1560 7 KERereenette Eee 
1570 

1580 i=REMAIN(D) 

1590 ba=ba-1 

1600 IF ba=0O THEN 1640 

1610 LOCATE bpox,bpoy:PRINT CHRA$( 32 

); 

1620 FOR i=900 TO 1000 STEP 10:S0UN 

D 1,1,5,15:NEXT 

1630 LOCATE pox,24:PRINT STRING$(S, 


32) ;:G0S5UB 1760:G0TO 1280 

1640 7 KEREHHEEHHEEEEHEEREE HEN 
1650 ’ * GAME OVER * 
1660 7 Maratarstarseatatsf stats EEE 
1670 ” 

1680 punkte=punkte+feld 

1690 LOCATE 6,8:PRINT "GAME DOVER" 
1700 FOR i=15 TO 1 STEP -1:FOR n=12 
7 TO 450 STEP 12:S0OUND 1,n,1,i:NEXT 
:NEXT 

1710 LOCATE 3,10:PRINT 
zahl” 

1720 LOCATE 9,12:PRINT 
1730 LOCATE 2,14:PRINT 
ECKEN <" 

1740 WHILE INKEY$<>" " 
1750 GOTO 150 

1760 ” 

1770 gy=-D:wy=1:wx=1:bpoy=14:bpox=4: 
pox=6 


ne 


De?) 


> 


"Deine Punkt 


punkte 
"> SPACE DRU 


:WEND 


RETURN 


1860 DATA --- - - 


1870 RESTORE 1800:FOR i=1 TO 7:READ 
nam$( i) :NEXT 


1880 RETURN 

18BI90O 7° KEREUERECEERUCCEECEEEHEEEEN 
1900 ’ # Naechster Level ” 
1I9I0O 7 SEEN EHUNEE 
1920 

1930 i=REMAIN( DO) 


1940 FOR i=10 TO 15:FOR j=100 TO 60 

DO STEP 50:S0OUND 1,53,2,i:INK 0,i,i-9 
:BORDER i-9,1:50UND 2, j-100,2,i:NEX 

T:NEXT 

1950 FOR i=15 TO 10 STEP -1:FOR j=1 

300 TO 1600 STEP 25:50UND 1,7j,2,15, 
,,30:S5DUND 2, 5j-100,2,i,,,i:NEXT:NEX 

7 

1960 LOCATE 3,8:PRINT "ES FOLGT LEV 

EL”; level+1 

1970 INK 0,0:BORDER 0:LOCATE 2,12:P 

RINT "> SPACE DRUECKEN <" 

1980 WHILE INKEY$<>" ":WEND 

1990 LOCATE 2,12:PRINT STARING$( 18,3 

2); :LOCATE 1,24:PRINT STRING$( 18,32 

J) ;:LOCATE bpox,bpoy:PRINT CHR$( 32): 

LOCATE 2,8:PRINT STRING$( 18 

32); 

2000 punkte=punkte+feld:feld=0:G05SU 

B 1760 

2010 level=level+1:IF level=10 THEN 
level=1 

2020 GOTO 380 

2030 RESUME NEXT 


SCHNEIDER 


HOTLINE 


Jeden Montag 
15-19 Uhr 


(ausgenommen 
an Feiertagen) 


Tel. 089, 
184023 
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DIAGRAMNM 


Was nutzen die schönsten Zahlenkolonnen, wenn 
man nicht schnell einen Überblick zu den Werten be- 
kommen kann. Ein Bild sagt nun einmal mehr als 
tausend Worte, oder auch tausend Zahlen (um das 
Sprichwort einmal abzuwandeln). Dies mag sich 
auch Günter Schmidt gedacht haben, der für Schnei- 
der aktiv das Kassenbuch zur Belegabrechnung pro- 
grammierte. Sein Programm „Balken—Linien— 
Torten-Grafik“ ist allerdings nicht nur in Verbindung 
mit dem erstgenannten Listing funktionsfähig, son- 
dern gilt als eigenständiges Programm. 


TEST SCHNEIDER aktiv. 1986 == 1000 
508 


Das Programm stellt die Werte der Monate Januar 
bis Dezember eines Jahres in einer dreidimensionalen 
Grafik dar. Nach dem Start des Programmes erfolgt 
eine kurze Erklärung und es wird auf die Eingabe 
des Namens der Grafik, des Jahres und der Ober- 
grenze der Werte gewartet. Aus den bekannten 

12 Werten der einzelnen Monate wird der höchste 
als Obergrenze genommen. Als erstes werden die Bal- 
ken dargestellt. Die Kopfzeile ist gleichzeitig Einga- 
be- und Menüzeile. Nach jeder der zwölf Eingaben 
werden die dazugehörigen Balken gezeichnet. Danach 
kann die Grafik abgespeichert oder ausgedruckt wer- 
den, oder es geht weiter zur Liniengrafik. Die Werte 
werden dabei übernommen und die Linien gezeich- 
net. Wie bei der Balkengrafik dient die Kopfzeile als 
Menüzeile. 

Zuletzt kann eine Tortengrafik angefordert werden. 
Hierbei ist etwas Geduld erforderlich, da der Kreis 
sehr langsam gezeichnet wird (STEP 0.2). Zwar wäre 
ein schnellerer Ablauf möglich, jedoch würde dann 
der Kreisrand nicht durchgezeichnet werden. Auf ei- 
nen RSX-Befehl (CIRCLE) wurde aus Kompatibili- 
tätsgründen zum CPC 6128 verzichtet. 

Beim Abspeichern der Bilder werden vom Namen der 
Grafik die jeweiligen ersten drei Buchstaben über- 
nommen. Die letzten zwei Ziffern des Jahres werden 
der Abkürzung angefügt. Beispiel: “Testbild 1987“ 
wird zum Speichernamen “TES87-TO.BIN“ bei der 
Tortengrafik, zu “TES87;LI.BIN“ bei der Linien- 
grafik und zu “TES87-BA.BIN“ beim Balkendia- 
gramm. Um den jeweiligen Bildschirm auszudrucken, 
muß vor Beginn der Arbeit eine Hardcopy-Routine 
eingeladen werden. 
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1 2 2 2.2.2.2 2.2.2.2 22.2.2 .2.2.2.2.2.2.2.2.22.202.2.2.2. 222 
2 #BALKEN-LINIEN-TORTEN-DIAGRAMM* 
3 '* VON = 
4a 8 GUENTHER SCHMIDT * 
5s '* FUER * 
6 °’* SCHNEIDER AKTIV * 
VER CPC 464/664/6128B * 
(5) 


FAHRER HHECHERUHHERHERUNEEREHNTRREN 


10 OPENOUT "dummy"” 
20 MEMORY HIMEM-1 
30 CLOSEOUT 


sD ” 

60 

70 MODE 2:INK 0,0:INK 1,26:BORDER O 
80 DIM wert( 12) :DIM ein( 12) 

90 ’” =====> WINDOW BESTIMMEN <===== 
100 WINDOW#1,2,79,25,25:PAPER#1,1:P 
EN#1,0:CL5#1 

110 WINDOW#2,13,68,2,2:PAPER#2,0:PE 
N#2,1 

120 GOSUB 680 

130 PRINT#2," ==> BALKEN/LINIEN/TOR 
TEN-GRAPHIK <==>(c) 65.1987 7 
140 GOSUB 820 

150 GOSUB 800 

160 ” 
170 LOCATE 4,21:PRINT CHR$( 24) ;” NA 
ME DER GRAPHIK : ";CHRA$( 24) 

180 LOCATE 4,22:PRINT CHR$(24);"” JA 
HR : ";CHR$( 24) 

190 LOCATE 4,23:PRINT CHR$(24);" OB 
ERGRENZE : ";CHR$C24) 

200 LOCATE 26,21:INPUT name$ 

210 LOCATE 26,22:INPUT jahr$ 

220 LOCATE 26,23:INPUT grenze 

230 LOCATE#1,30,1:PRINTf1," ENTE 


GOSUB 800 

CALL &BB0O6:CLS:CLS#1 

h=8:G05UB 680 

=====> MONATE AUSGEBEN <===== 
FOR i=1 TO 12 
z=z+1 

READ a$ 

310 IF z<2 THEN 
#1,2$:G0T0O 330 
320 LOCATE#1,i*6-4,1:PRINT#1,a$ 
330 NEXT 

340 LOCATE 74,25:PRINT jahr$ 
350 IF 1=1 THEN RETURN 

360 ’ 
370 FOR i=2 TO 19::L0OCATE 78,25-i:P 
RINT CHR$( 157) :NEXT:LOCATE 78,24:PR 
INT CHA$( 153) :LOCATE 78,5:PRINT CHR 
$( 149) :LOCATE 78,4:PRINT CHRA$( 149): 
LOCATE 78,3:PRINT CHR$( 240) 

380 FOR i=1 TO 19 STEP 3:LOCATE 77, 
25-i1:PRINT CHRA$( 154) :NEXT 


LOCATE#1,2,1:PRINT 


390 LOCATE 72,2:PRINT grenze 
400 ORIGIN 10,312:FOR i=1 TO 600 ST 
EP 4:MOVE 0O,-2:DRAW i,-2:MOVE 0,0:D 


RAW i,0:NEXT 
410 z=D 

420 ” =====> WERTE EINGEBEN <====== 
430 PAPER#2,0:PEN#2,1:CL5#2 


440 num=num+1 
ASO IF num=13 THEN 910 ” 
KENGRAPHIK ENDE <----- 


460 LOCATE#2,4,1:PRINT#f2," Eingabe 
Monat :";num:LOCATE#2,25,1:INPUT#2,e 
ingabe 

A470 IF eingabe>grenze THEN GOSUB BO 
0:LOCATE#2,24,1:PRINT#2,"Eingabefeh 
ler!!":FOR i=1 TO 1000:NEXT:LOCATE# 
2,24,1:PRINT#2,"” ":G 


OTO A460 

480 ausgabe=( eingabe*#270) /grenze 
490 wert( num) =sausgabe:ein{ num) =eing 
abe 

500 7 =====> BALKEN ZEICHNEN <===== 
510 z=z+1:IF z<2 THEN 530 

520 n=n+4AB:v=v+1 

530 ORIGIN 5+n,20 

540 FOR i=1 TOD ausgabe STEP 2.2 


550 MOVE 10,i:DRAW 40,i1,1:DRAW 50,h 
+i 

560 MOVE 50,i:PLOT 40,i,0 

570 NEXT 

580 ORIGIN 15+n,20+i:MOVE 0,0:DRAW 


10,h,1:DRAW A40,h 

590 TAG 

600 IF v<>1 THEN 620 

610 ORIGIN 10+n,350:PRINT eingabe;: 
GOTO 630 

620 ORIGIN 10+n,335:PRINT eingabe;: 
v=0 
630 TAGOFF 

640 GOSUB 800 

650 FOR i=1 TO 10:LOCATE#2,23+1,1:P 
AINT#2,” "; :NEXT 

660 GOTO 440 

670 ” 
680 ORIGIN 0,0 

690 DRAW 0,379:DRAW 639,379:DRAW 63 
9,0:DRAW 0,0 

700 ORIGIN 2,2 

710 DRAW 0,375:DRAW 635,375:DRAW 63 
5,0:DRAW 0,0 

720 ORIGIN 4,4 

730 DRAW 0,371:DRAW 631,371:DRAW 63 
1,0:DRAW 0,0 

740 LOCATE 12,1:PRINT CHR$( 150) ;:FO 
A i=1 TO 56:PRINT CHA$( 154) ; :NEXT:P 
RINT CHR$( 156) 

750 LOCATE 12,2:PRINT CHR$( 149) ;:FO 
R i=1 TO 56:PRINT ” ";:NEXT:PRINT C 
HR$L 149) 

760 LOCATE 12,3:PRINT CHR$( 147); :FO 
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AR i=1 TO 56:PRINT CHR$( 154) ; :NEXT:P 
RINT CHR$( 153) 


770 PRINT#2,” ==========> BALKEN-GR 


780 RETURN 
790 ° =====> PIEPS <====-= 


800 SOUND 1,199,14,7:50UND 2,200, 14 
‚7:RETURN 

810 

820 LOCATE 4,5:PRINT"Dieses Program 

m stellt die Werte der Monate 1 - 1 

2 in Form von " 

830 LOCATE 14,7:PRINT ” ";CHR$(24); 

"BALKEN - LINIE - TO 
A TE ";CHR$(24) 

840 LOCATE 4,9:PRINT"dreidimensiona 

1 dar.Die Obergrenze der Werte muss 
vorher eingegeben” 

850 LOCATE 4,11:PRINT"”werden.Dabei 

sollte die Üübergrenze >= dem hoechs 

ten Einzelwert sein.” 

860 LOCATE 4,13:PRINT"Weiter werden 
der ";CHR$( 24) ;” NAME "”;CHRA$( 24) ;” 
der Graphik und das ";CHR$(24);"” J 

AHR ";CHR$(24);"” fuer die” 

870 LOCATE 4,15:PRINT"Ausgabe des B 

ildschirmes auf den Drucker benoeti 

gt.” 

880 LOCATE 4,17:PRINT CHR$( 24) ;"” HA 

RDCOPY-ANPASSUNG ";CHR$(24);"” in Ze 

ile 940,1380 und 1720.” 

890 RETURN 

900 

910 CLS#2:PRINT#f2,"  ";CHR$(24) ;" 

A ";CHR$( 24) ;"=Abspeichern ";CHR$(2 

4);”" H ";CHR$( 24) ;"=Hardcopy ";CHR$ 

(24);" N ";CHR$( 24) ;"=Neustart ";CH 

A$(24);" W ";CHR$( 24) ;"=Weiter" 

920 a$=-INKEY$:IF a$="" THEN 920 

930 IF a$="a" THEN CLS#2:LOCATE#2,4 

‚1:PAINT#2,name$;”" "; jahr$:ab$=LEF 

T$( name$, 3) : ja$=RIGHT$( jahr$, 2) :zus 

atz$="-BA” :absp$=ab$+ ja$+zusatz$:5A 

VE absp$,b,49152, 16383:G0SUB 800:6G0 

TO 910 

940 IF a$="h" THEN CLS#2:LOCATE#2,4 

‚1:PRINT#2,name$;” ";Jjahr$:] COPY:G 

DSUB 800:G0TD 910 

950 IF a$="n" THEN GOSUB 800: RUN 

960 IF a$="w” THEN 990 

970 GOTO 910 

980 DATA JAN,FEB,MAR,APR,MAI,JUN, JU 

L,AUG, SEP, OKT,NOV,DEZ 

990 ’° =====> LINIENGRAPHIK <===== 

1000 CLS:CLS#1:1=1:RESTORE:GOSUB 80 

0:6G05UB 680:G6G05UB 280 

1010 PRINT#2,"===========> LINIEN-G 

RAPHIK <========>3(c) 65.10.86 

1020 ORIGIN 10,312:FOR i=1 TO 600 S 


DRAW i,0:NEXT 


1030 =====> RASTER <===== 
1040 ORIGIN 0,0 

1050 FOR z=1 TO 13 

1060 FOR i=-1 TO 630 STEP 30 

1070 ORIGIN 10,z*24:DRAW i,O 

1080 NEXT:NEXT 

1090 LOCATE 77,24:PRINT CHR$( 145) 
1100 FOR i=2 TO 21:L0OCATE 77,25-i:P 
RINT CHR$( 149) :NEXT 

1110 LOCATE 77,3:PRINT CHR$( 240) :LO 
CATE 72,2:PRINT grenze 

1120 ORIGIN 0,0:n=0 

1130 FOR z=1 TO 13:n=n+48B 

1140 FOR i=1 TO 330 STEP 30 

1150 ORIGIN n-48, 10:DRAW D,i 

1160 NEXT:NEXT 

1170 ” =====> LINIEN ZEICHNEN <==== 
1180 z=0:n=48:v=0 

1190 FOR x=1 TO 5 STEP 1 

1200 ORIGIN (n-20) -x,20-x 

1210 MOVE O,wert(1) 

1220 FOR i=1 TO 12 

1230 DRAW (i*#n)-n,wert(i) 

1240 NEXT 

1250 NEXT 

1260 FOR i=1 TO 12 

1270 TAG 

1280 v=v+1:n=n+t4B 

1290 IF v<>1 THEN 1310 

1300 ORIGIN n-91,335:PRINT ein(i);: 
GOTO 1320 

41310 ORIGIN n-91,350:PRINT ein(i);: 
v=D 

1320 TAGOFF 

1330 NEXT 

1340 ” =====> MENUE <===== 

1350 PRINT#2,CHR$( 24) ;" A ";CHR$C24A 


);"=Abspeichern ";CHR$(24) ;" H ";CH 
A$( 24) ;"=Hardcopy ";CHR$(24);"” N "”; 
CHR$( 24) ;"=Neustart ";CHR$C24);" W 
";CHR$( 24) ;"=Weiter"” 

1360 a$=INKEY$:IF a$="" THEN 1360 
1370 IF a$="a” THEN CLS#2:LOCATE#2, 
4,1:PRINT#2,name$;" ";jahr$:ab$=LE 
FT$Cname$,3) : ja$=RIGHT$( jahr$, 2) :zu 
satz$="-LI”:absp$=ab$+ ja$+zusatz$:5 
AVE absp$,b,49152,16383:G0SUB 800:G 
0TO 1350 

1380 IF a$="h" THEN CLS#2:LOCATE#2, 
4,1:PARINT#2,name$;” ";jahr$:| COPY: 
GOSUB 800:G0T0 1350 

1390 IF a$-"n" THEN GOSUB 800:RUN 
1400 IF a$="w” THEN 1430 

1410 GOTO 1360 

1420 ” =====> TORTENGRAPHIK <====- 
1430 FOR i=-1 TO 12:einsum=-einsumtei 
n(i) :NEXT 


TEP 4:MOVE D,-2:DRAAW i,-2:MOVE 0,0: 1440 MODE 2:RESTORE 
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1450 WINDOW#3,3,20,5,21 

1460 WINDOW#2,13,68,2,2:PAPER#2,0:P 
EN#2,1:CL5#2 

1470 GOSUB 800:605UB 680 


1480 PRINT#2, "==========-> TORTEN-G 
RAPHIK <========>(c) 65.10.86 <===" 
1490 GOSUB 1760 

1500 FOR i=1 TO 12 


1510 kreis=(ein(i)*360) /einsum 

1520 kr=kr+kreis 

1530 FOR ku=0 TO kreis 

1540 x=180*COS(kr+90) 

1550 y=-60*SIN( kr+90) 

1560 MOVE x,y 

1570 NEXT 

1580 IF kr>=270 THEN 1600 

1590 IF kr>=90 THEN DRAW x,y-80,0 
1600 PLOT 0,0,1:DRAW x,y 

1610 GOSUB 1860 

1620 ” =====> AUSGABE DER MONATE UN 

D WERTE <===== 

1630 READ a$ 

1640 LOCATE#3,2,1+i1:PRINT#3,a$;" = 
";ein(i) 

1650 NEXT:b=O 

1660 LOCATE#3,2,i+2:PRINT#3, "SUM";" 
= ";einsum 

1670 
1680 PAPER#2,1:PEN#2,0:CL5#2 

1690 PRINT#2," A ";CHA$( 24) ;"=Absp 

eichern ";CHR$(24);"” H ";CHR$( 24); 

=Hardcopy ";CHR$(24);" N ";CHR$L24) 
;"=Neustart ";CHR$(24);"” E ";CHR$C2 

A) ;"=ENDE " 
1700 a$=INKEY$:IF a$="" THEN 1700 
1710 IF a$="a”" THEN CLS#2:LOCATE#2, 

4,1:PRINT#2,name$;" ";jahr$:ab$=LE 

FT$Cname$,3) : ja$=RIGHT$( jahr$, 2) :zu 

satz$="-T0":absp$=ab$+ ja$+zusatz$:5 

AVE absp$,b,49152,16383:G05UB 800:6G 

DTO 1690 

1720 IF a$="h" 

4,1:PRINT#2,name$;" 

G0SUB 8B00:G0OTO 1690 
1730 IF a$="n" THEN GOSUB 800:RUN 
1740 IF a$="e" THEN CALL O0 

1750 GOTO 1700 

1760 DEG:ORIGIN 400,210 

1770 FOR i=0 TO 360 STEP 0.2 

1780 x1=180*COS( i+90) 

1790 y1=60*5SIN( i+90) 

1800 PLOT x1,y1 

1810 IF i>270 THEN 1830 

1820 IF i>90 THEN DRAW x1,y1:DRAW x 
1,y1-80 

1830 NEXT 

1840 PAPER#3,1:PEN#3,0:CLS#3 

1850 RETURN 

1860 ’° =====> BESCHRIFTUNG MONATE 1 


THEN CLS#2:LOCATE#2, 
; jahr$:| COPY: 


1870 PRINT CHR$( 23) +CHR$( 1); 
> TRANSP.EIN <----- 

1880 IF kr<90 THEN MOVE x-20,y+20:T 
AG:PRINT i;:TAGOFF 

1890 IF kr>90 AND kr<180 THEN MOVE 
x-10,y-95:TAG:PRINT i;:TAGOFF 

1900 IF kr=90 THEN MOVE x-20,y+10:T 
AG:PRINT i;:TAGOFF 

1910 IF kr>180 AND kr<270 THEN MOVE 
x-20,y-105:TAG:PRINT i;:TAGOFF 
1920 IF kr=180 THEN MOVE x-20,y-105 
:TAG:PRINT i;:TAGOFF 

1930 IF kr>=270 THEN MOVE x+10,y+20 
:TAG:PRINT i;:TAGOFF 

1940 PRINT CHRA$( 23) +CHA$(0); "----- 
> TRANSP.AUS <----- 

1950 RETURN 


INFORMATION 


) 


III 


1000 It 


SCHNEIDER 


AKTIV 
DIALOG 


Postfach 1161 
D-8044 
Unterschleißheim 
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SUPERHARDCOPY 


Abgesehen von der Druckerkompatibilität gibt es bei 
einer Hardcopy immer zwei Probleme: Viele sind ein- 
fach zu klein, eine echte DIN A4-Darstellung kommt 
nicht zustande, weil das Papier quer bedruckt werden 
müßte. Das zweite Problem ist die Farberkennung. 
Normalerweise wird jede Farbe akzeptiert und ge- 
druckt. Da ein Drucker nun einmal nur schwarze 
Farbe zu Papier bringt, ist eine Schrift, die sich auf 
dem Monitor Gelb auf Rot darstellt, nicht mehr zu 
lesen. Christian Fibikar hat es nun geschafft, beide 
Hürden zu überwinden. Seine Routine druckt echtes 
DIN A4-Format aus, indem das Bild gedreht wird. 
Statt der Farben kann der Anwender der “Super- 
hardcopy“‘ verschiedene Raster auswählen und da- 
durch unterschiedliche Grautöne auf dem Drucker er- 
zeugen. Zum Programm selbst nun der Autor: 


Leistungsfähigkeit 


Diese Hardcopy unterscheidet sich von den meisten 
anderen Hardcopyroutinen darin, daß eine Bildschirm- 
hardcopy in allen drei Modi möglich ist. Die verschie- 
denen Farben werden als Muster ausgedruckt, dies 
sind 16 Muster in Mode O und 4 in Mode 1. Es findet 
keine Streckung oder Verzerrung des Ausdrucks 
statt, Kreise werden auch als Kreise ausgedruckt. Der 
Ausdruck erfolgt im DIN A4-Format in allen drei 
Modi. Die Muster kann man selbst festlegen und zum 
Test ausdrucken. Die Druckzeit hängt dabei fast nur 
vom Drucker ab, da das Lesen der Pixel vom Bild- 
schirm sehr schnell geht. 


Programmerklärung 


Der Basic-Lader (ab Zeile 30000) installiert 5 RSX- 
Befehle. Bei der Initialisierung werden 16 Grundmu- 
ster eingestellt, die man aber mit den RSX-Befehlen 
verändern kann (Grundmuster beim Basic-Lader ab 
Zeile 35369). Ein Muster wird durch eine 5*4 Matrix 
festgelegt (5 Punkte horizontal * 4 vertikal). Jeder 
Punkt der in der Matrix gesetzt ist, wird auch als 
Punkt vom Drucker ausgegeben. Zur Codierung wer- 
den jeweils die horizontalen Punkte zusammengefaßt. 
Für diejenigen, denen dieser Vorgang zu kompliziert 
und mühsam ist, liegt hier ein Matrix-Creator vor, 
An dem man ganz einfach ein Muster entwerfen 
ann. 
Gleichzeitig werden auch jeweils die Codes für die 
horizontalen Zeilen angezeigt. Man sieht auch am 
Bildschirm alle 16 vorhandenen Muster. Es wird 
auch angezeigt, wie das Muster ausgedruckt aus- 
sieht. Jedes der 16 Muster kann verändert werden, es 
können auch Muster ausgewechselt werden. Jederzeit 
können die Muster zum Test vom Drucker ausge- 
druckt werden. 
Jeder Farbe (INK) wird ein Muster (MATRIX) zuge- 
ordnet. Es gibt 16 Muster, die jeweils die Nummer 
deı Farbe (INK) haben. Im Mode 1 gibt es nur 


Bitte lesen Sie weiter auf Seite 42 
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12 VRRRARNNNERNERER ER HENIEEHEHNEH 


20 °* MATRIX-CREATOR * 
38 ’* VON * 
au '* CHRISTIAN R.FIBIKER * 
su ’# FUER = 
68 ’* SCHNEIDER AKTIV * 
70 '* CPC 464 * 


75 ’#MIT ANPASSUNG FUER 664/6128 * 
BB A RRRRRRRRRRRRREHRRARRRESETIEN 
98 ° RSX-Befehle laden und 

95 * Bildschirm aufbauen 

96 ’ 

188 RESTORE 35888:GOSUB 38888:RESTO 
RE 

118 MODE 1:DIM p(4,3) 

128 FOR i=8 TO 3:KEY DEF 72+1,1,&6F® 
+i:NEXT:KEY DEF 76,1,8E® 

138 basis=bas+&285 

148 MOVE 4,376:DRAWR 638,8,3:MOVE 6 
34,3976:DRAWR @®,-122:PEN 2 

158 PRINT "” Matrixtabelle:":TAG 

168 FOR yur=328 TO 266 STEP -62:0RI 

GIN 4,yur-12:DRAWR 638,8,3 

178 FOR xur=28 TO 588 STEP 80:ORIGI 

N xur,yur:MOVE -26,48 

188 DRAWR 8,-68,3:PLOT 4,42,2:PRINT 
USING "44#4";f;:G0OSUB 528:basis=basi 
s+]1 

198 fF=f+1:NEXT xur,yur 

288 TAGOFF:LOCATE 1,12:PRINT "Matri 
x Nr. 8":WINDOW #1,15,48,12,25:PEN 
#1,2 

218 READ a$:IF a$<>"e" 
1,3$:G0T0 218 

228 PAPER 3:FOR i=14 TO 19:L0OCATE 5 
‚i:PRINT SPC(7) 

238 IF i>14 AND i<19 THEN LOCATE #5 
‚2,i:PRINT #5,”08" 

248 NEXT:FOR i=21 TO 25:LOCATE 5,i: 
PRINT SPC( 7) :NEXT 

258 ORIGIN 188,38:FOR y=B TO 3:w(y) 
=8:FOR i=8 TO A:pli,y)=®8:NEXT:GOSUB 
518:NEXT 

2608 x=0:y=8 

265 ’ 

266 
267 ’ 
278 LOCATE xat6,ya+15:PAINT CHR$( 32 
+111®*p(xa,ya)) :xa=x:ya=y 

288 GOSUB 478 

298 t$=UPPER$L INKEY$) :IF t$="" 
298 
388 IF 
318 IF 
3280 IF 
338 IF 
348 IF 
358 IF 
368 IF 
98 


THEN PRINT # 


Steuerungsteil 


THEN 


THEN 548 

t$="C" THEN 578 

t$="RA" THEN 688 

t$=CHRA$(EEB) THEN 648 

t$="L" THEN 228 

t$="T” THEN | TEST:GOTO 298 
t$="H" THEN | HARDCOPY:GOTO 2 


t$="5" 


378 IF t$<"}" THEN 298 

388 ON ASC(t$)-EEF GOTO 399,418,438 
‚450 
385 ’ 
386 ’ 


387 
398 IF Y>® THEN Y=Y-1 


480 GOTO 278 

418 IF Y<3 THEN Y=Y+1 
428 GOTO 278 

438 IF X>®8 THEN X=X-1 
448 GOTO 278 

458 IF X<4 THEN X=X+1 
468 GOTO 278 

465 

466 
467 

478 LOCATE x+6,y+15:PRINT CHA$( 24*P 
(x,y)) ;CHA$( 159) CHR$( 24*p(x,y)) :RET 

URN 

A488 GOSUB 478:0RIGIN 188,38 

498 p=-plx,y) :xx=x#t2:yy=y*#2:PLOT xx- 
28,-yy,p:FOR xu=8 TO 38 STEP 18 

588 FOR yu=8 TO 24 STEP 8:PLOT xutx 
x,yu-yy,p:NEXT yu,xu:RETURN 

518 FOR x=8 TO 4:G05SUB 498:NEXT x:R 

ETURN 

528 basis=basis+t3:FOR y=8 TO 3:w(y) 
=PEEK( basis-y) :b$=BIN$(w( y) ,5) :FOR 

bx=1 TO 5:p(lbx-1,y)=VAL(MID$(b$,bx, 
1)) :NEXT bx:G0OSUB 519:NEXT 

y:RETURN 

538 PAPER B8:LOCATE 12,12:INPUT "",p 
:IF p<B OR p>15 THEN 538 ELSE PAPER 
3:RETURN 

535 
536 
iben 

537 
548 GOSUB 5398:G05UB 669:n=p:YYY=Y:X 
xX=X 

558 FOR Y=8 TO 3:G0SUB S518:NEXT Y:Y 
=YYY:X=XXX 


Cursorsteuerung 


Unterprogramme 


Matrix in Matrixtabelle schre 


568 |IMATRIX,n,w(8) ,‚w( 1) ,w(C2) ,w(3):G 
0TO 298 

565 ’ 

566 ’° Matrixen wechseln 

567 

578 LOCATE #1,1,14:INPUT #1,"Matrix 
Nr.,Nr. ",‚p1,p2:IF p1>15 OR p2>15 
THEN 578 


588 LOCATE #1,1,14:PRINT #1,CHR$( 18 
) ;:1CMATRIX,pi1,p2:p=>p1:xxx=x:yyy=y: 
FOR i=B TO 3:ww(i)=w(i):FOR j=8 TO 
4:pp( j,i)=p(jJ,i):NEXT j,i 

598 GOSUB 6698:G05UB 528:p=p2:GOSUB 
668:G0SUB 528:x=xxx:y=yyy:FOR i=@ T 
O 3:w(i)=ww(i):FOR j=8 TO A:p(j,i)= 
PPp( j,i) :NEXT j,i:G0TO 298 

595 
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596 ’ Matrix aus Tabelle lesen 38138 summe=-summe+lo+hi+4988 
597 39148 lo=lo+blo 

688 GOSUB 538:G0SUB 668:0RIGIN 188, 381508 ob=hi+bhi+1o\256 
38:XXX=X:YYY=Y:GOSUB 528:X=XXX:Y=YY 38168 POKE basis,(lo MOD 256) 
Y 38178 basis=basist+ti 

618 FOR YT=® TO 3:LOCATE #5,2,yt+15 39188 GOTO 38388 

:PRINT #5,HEX$(w(yt),2) 38198 ! 

628 LOCATE 6,YT+15:FOR XT=8 TO A:PR 38288 ob=VAL( ob$) 

INT CHA$( 32+111*PCXT,YT)); 38218 IF ob<189898 THEN 39298 
638 NEXT XT,YT:6G0OTO 288 30228 IF summe=ob-18888 TH 
635 ’ EN 38268 

636 ’ Pixel an/aus 39230 PRINT "Summenfehl 
"637 er in"; 

648 PLX,Y)=P(X,Y) XOR 1:w(ly)=w(y) X 38248 PRINT "” Zeile ";z 
OR 2°(4-x):LOCATE #5,2,15t+y eile 

658 PRINT #5,HEX$(w([y),2) :GOSUB ABB 38258 f=1 

:GOTO 298 382608 zeile=zeile+1® 

668 ORIGIN 28+( P-( P\8) *8) #80, 328-62 30278 summe=d 

*(P\B) :basis=bas+&285+p*4:RETURN 30288 GOTO 38328 

665 38298 summe=summe+tob 

666 ’ Erklaerung 38388 POKE basis,ob 

667 ” 38310 basis=-basis+1 

678 DATA Steuerung mit Joystick 38328 WEND 

oder Cursortasten 30338 


688 DATA ‚Fire/COPY - Pixel an/aus, 38348 IF f THEN END 

698 DATA L - Matrix loeschen, R -— Au 38358 MEMORY bas 

s Matrixtab. lesen,C - Matrixen wec 38368 CALL bas+1 

hseln 38378 RETURN 

788 DATA S - Matr. in Tab schreiben 38388 ” 

‚T - Matrixtabelle drucken,H - Hard 35888 DATA 1,,12,8,33,,128,2,285,28 


copy,e 9,188,195,,61,0,,29,8,195, ,253,8,31 
29898 ’ 511 

Pr: 1: Tune u u 2 2 2 202 2.2 222 2222222222223 35818 DATA 195,,61,8,195,,73,8,195, 
299190 * xr* a ‚218,0,195,,106,0,72,65,82,27449 
29920  »#x ASX-Befehle “u 35028 DAIA 68,67,79,88,217,77,82,69 
29930 ’ ru HARDCOPY aus ‚83,69,212,77,65,84,82,73,11484 
29940 * sr MATRIX un 35038 DATA 216,67,77,65,84,82,73,21 
29950 ’ sur CMATRIX au 6,84,69,83,212,8,33, ,64,2, 15427 
29960 ’ *** MRESET “u 35848 DATA 17,,132,2,1,64,0,237,176 
29965 ’ ### TEST “ur ‚2081,221,94,8, 123,254, 16,288, 15754 
29970 ’ ze ana 35058 DATA 33,,132,2,175,87,283,35, 
29988 ’ **# von Ch.A. Fibikar *** 203,35,25,6,4,221,126,0,230, 15517 
29990 ’ *## ann 35868 DATA 31,119,35,221,35,221,35, 
29995 * BRRRHRRRHRRSRRRRHRHSRRRFE 16,243,281,237,115,,198,2,2805,6, 159 
29996 ’ 20 

30888 bas=HIMEN-712 35878 DATA 185, 14,4,62,27,285,,36,2 
30018 IF bas>&4888 THEN 389839 ‚62,51,205,,36,2,62,15,285, 19173 
389208 PRINT "Kein Speicherplatz 35888 DATA ‚36,2,62,13,285,,36,2,62 
mehr frei!":END ‚10,205,,36,2,6,16,62,27,22782 
30838 basis=bas+1 35898 DATA 205, ,36,2,62,76,285,,36, 
38640 ende=basis+64® 2,175,2805,,36,2,62,3,285, ,36,2,2735 
38058 bhi=INT(basis/256) " 

30868 blo=basis-bhi*256 35188 DATA 33, ,132,2,197,93,84,14,8 
38078 zeile=3588®8 ‚98, 107,6,4,126,205,,36,2,19147 
30888 ’ 3511@ DATA 35,16,249,13,32,242,6,16 
38898 WHILE basis<>ende ‚175,205, ,36,2,16,251,193, 15487 
38108 READ ob$ 35128 DATA 16,226,62,13,205, ,36,2,6 
38118 IF ob$="" THEN 38128 ELSE 2,10,205,,36,2,13,32,189, 195, 19384 
38208 35130 DATA 9,185,221,78,8,62,15,185 
301208 READ lo:READ hi ‚216,221,94,2,187,216,175,87,11953 39 
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35148 DATA 71,203,35,203,35,283,33, 
203,33,33,,132,2,229,25,235,225, 159 
7%) 
35158 DATA 9,6,4,26,78,119,121,18,3 
5,19,16,247,201,237,115,,198,2,1545 
1 
35160 DATA 285,6,185,62,27,205,,36, 
2,62,51,205,,36,2,58, 195, 19337 
35178 DATA 183,254,1,1,170,1,38,14, 
62,5,17,160,8,56,17,1, 10988 
35188 DATA 136,2,62,3,480,18,1,128,5 
‚38,18,62,1,17,128,®, 18651 
35198 DATA 50,,138,1,121,58,,31,2,1 
20,580,,196,2,124,205,,36,2,213,2733 
3 
35208 DATA 17,0,8,33,8,8,285, 169, 11 
‚209,20,229,213,205,,5@,2, 15363 
35218 DATA 38,200,62,13,205,,36,2,6 
2,10,205,,36,2,62,9,285, ,36,2,23177 
35228 DATA 62,27,285,,36,2,62,76,28 
5,,36,2,62,32,205, ,36,2,23858 
35230 DATA 62,3,285,,36,2,213,229,1 
97,58,,196,2,95,22,0,285, 138, 19655 
35248 DATA 12,6,0,203,34,16,252, 178 
‚87,29,40,5,285,,27,2,24, 15120 
35250 DATA 237,58,,196,2,254,5,32,1 
5,205,138,12,203,34,178,6,4, 15571 
35260 DATA 205,,36,2,16,251,24,82,2 
03,34,203,34,203,128,254,2,32,15789 
35278 DATA 7,66, 128,230,28,87,203,1 
92,33, ,132,2,90,175,87,25,235, 15712 
352808 DATA 283,64,40,42,120,230,224 
‚283,63,203,63,283,63,213,95, 175,12 
294 
35298 DATA 87,33,,132,2,25,209,6,4, 
26,230,7,78,203,33,283,33, 15311 
35308 DATA 203,33, 177,230,31,35,19, 
205,,36,2,16,236,24,11,6,4, 15268 
353180 DATA 26,230,31,285,,36,2,19,1 
6,247,193,225,209,205,45, 12,29, 1573 
7) 
35328 DATA 194,,117,1,289,225,58,,1 
96,2,245,205,,27,2,241,61,32,248,24 
063 
35330 DATA 29,194,,75,1,21,194,,75, 
1,195,9,185,283,57,208, 14,0, 19461 
35348 DATA 205,249,11,201,197,5®,,1 
97,2,205,248,7,193,216,205,,58,2,28 
238 
35358 DATA 24,242,205,66,26,254,252 
‚58, ,197,2,192,237,123,,198,2,201,2 
0279 
35355 * Matrixtabelle 
35368 DATA 8,0,8,8,31,31,31,31,31,®8 
‚31,8,31,0,8,8, 18217 
35376 DATA 31,17,17,31,12,12,12,12, 
31,16,16,16,0,4,4,0, 180231 
35380 DATA 10,10,10,180,14,17,17,14, 
31,18,31,10,0,31,31,0, 18246 
35398 DATA 31,21,21,31,28,28,28,28, 
0,14,14,0,1,6,8,16, 18275 


IRRE ENT HEHEHOHHHHHE HH HN 
"= SUPERHARDCOPY-ANPASSUNG FUER *# 
Z CPC 664 # 
. BITTE ZEILEN ANPASSEN # 
IFRAUTARRRERHEHITERNIEHSEN SEHE SEE IE HEHE 
35208 DATA 17,0,0,33,0,8,285, 171,11 
‚209,20,229,213,285,,5®,2, 15365 
35238 DATA 62,3,285,,36,2,213,229,1 
97,58, ,196,2,95,22,80,285, 134, 19659 
35258 DATA 237,58, ,196,2,254,5,32,1 
5,285,134,12,283,34,178,6,4, 15575 
3531® DATA 26,238,31,205,,36,2,19,1 
6,247,193,225,289,2805,53, 12,29, 1573 
8 

35348 DATA 285,1,12,2801,197,58,,197 
‚2,285,37,8,193,216,205, ,50,2,19781 
35358 DATA 24,242,285,197,27,254,25 
2,58,,197,2,192,237,123,,198,2,201, 


oRUN—- 


I FRAUEN NEREEHEREN HERREN 
2 "* SUPERHARDCOPY-ANPASSUNG FUER # 
3 ’%* CPC 6128 # 
a» BITTE ZEILEN ANPASSEN * 
GG !RHRERERNUTERTEEREREREUEHHEEHEREN 
35288 DATA 17,8,0,33,8,8,285, 175,11 
‚209,28,229,213,285, ,50,2,15369 
35238 DATA 62,3,285, ,36,2,213,229,1 
97,58,,196,2,95,22,8,285, 138, 19663 
35250 DATA 237,58, ,196,2,254,5,32,1 
5,285, 138, 12,203,34,178,6,4, 15579 
35318 DATA 26,238,31,285, ,36,2,19,1 
6,247,193,225,209,205,57,12,29,1574 
2 

35348 DAIA 285,5,12,2801,197,50,,197 
‚2,2085,53,8,193,216,205,50,2,198®1 
35358 DATA 24,242,285,197,27,254,25 
2,58,,197,2,192,237,123,,198,2,201, 
28411 


Fortsetzung von Seite 39 


4 Farben, also auch nur 4 Muster, die den ersten 

4 Matrixfeldern entsprechen. Bei der Ausgabe wer- 
den aber nur die ersten 2 bis 3 Punkte (von rechts) 
der Matrix ausgedruckt, da ja doppelt soviele hori- 
zontale Punkte vorhanden sind wie im Mode 0. 

Bei jedem ersten Bildpunkt werden die zwei ersten 
Matrixpunkte und bei jedem zweiten Bildpunkt 
werden die ersten drei Matrixpunkte ausgedruckt. 
Dies muß gemacht werden, um eine horizontale Ver- 
zerrung zu vermeiden. 

Bei Mode 2 gibt es nur zwei Farben. Eine Musteraus- 
gabe wäre also nicht sehr sinnvoll. So wird jeder ge- 
setzte Bildschirmpunkt als ein 4*] großer Punkt auf 
dem Drucker ausgegeben. Jeder fünfte Punkt wird 
doppelt ausgegeben, damit keine horizontale Ver- 
zerrung auftritt. Die Hardcopys in den verschiede- 
nen Modes haben eine Größe von 26*17 cm. Die 
Zeitdauer des Ausdrucks hängt von der Geschwin- 
digkeit des Druckers ab. Die Hardcopy des Mode 2 
gehört jedoch zu den schnellsten. 
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Befehlsformate 


IHARDCOPY: Eine Bildschirmhardcopy wird auf 


dem Drucker ausgegeben. Die Ausgabe kann mit ESC 
unterbrochen werden. Danach sollte der Drucker kurz 
aus- und wieder. angeschaltet werden (zurücksetzen). 
Beim Ausdruck entspricht eine vertikale Bildschirm- 
zeile einer horizontalen. 


ITEST: Die Muster werden ausgedruckt (Ausdruck 
wie bei einer Hardcopy). 


IMRESET: Die Muster werden auf die Grundmuster, 
wie beim Initialisieren, zurückgesetzt. 


ICMATRIX,m1,m2: Matrixen von Muster ml und 
m2 werden ausgetauscht. (Z.B. zum Invertieren: 
ICMATRIX,0,1 — Muster O hat nun die Matrix von 
Muster 1 und Muster 1 die von Muster 0.) 


IMATRIX,m,b1,b2,b3,b4: Muster m bekommt die 
Matrix zugewiesen (bestimmt durch b1-b4). bl ist 
der Code der ersten horizontalen Punktreihe der 
Matrix, b4 ist der Code der letzten Punktreihe. 


Tips zum Eintippen 


Das Basic-Programm besteht aus zwei Teilen, dem 
Matrix-Creator und dem Basic-Lader für die RSX-Be- 
fehle. Wer keine Muster selbst erstellen will, braucht 
den Matrix-Creator (Zeile 100-700) nicht einzutip- 
pen. Um die RSX-Befehle zu laden, genügt es, den 
Basic-Lader (ab Zeile 30000) anzuschreiben. Dieser 
Teil kann auch in eigene Programme eingebaut 
werden. 

Die RSX-Befehle werden an das Ende des Basic-Rams 
geladen. Wird die Meldung “Kein Speicherplatz mehr 
frei“ ausgegeben, dann muß der CPC zurückgesetzt 
werden. Das Programm sollte vor dem ersten Start 
abgespeichert werden. Tippfehler in den DATA-Zei- 
len werden durch die Warnung “Summenfehler in 
Zeile xxx“ angezeigt. Sind keine Tippfehler aufgetre- 
ten, dann werden die RSX-Befehle initialisiert und 
stehen sofort zur Verfügung (ein eventuelles 
SYMBOL AFTER... muß vor dem Starten des Basic- 
Laders ausgeführt werden, danach ist der Befehl 


nicht mehr durchführbar). Das HIMEM wird auto- 
matisch herabgesetzt. Die RSX-Befehle belegen 712 
Bytes. Die Hardcopy funktioniert bei allen Schneider- 
Druckern, sowie allen dazu kompatiblen (Epson etc.). 


Bild 1: 

Matrix Binär Hex-Dez. 
XXXXX = &x11111 = &IF 
_—X--—— > &x01000 = &08 
_——_X-— >= &x00100 = &04 
_—_ x = &x00010 = &02 


U-BOOT 


Die Regeln für Udo Ziese’s Spiel, das U-Boot-Spiel, 
kennt wohl jeder. Der Spielverlauf gehört ja schon 
fast zur Schulbildung, wo das Spiel auch als 
„Schiffchen versenken“ bekannt ist. Und weil wir 
bekanntlich nicht für die Schule, sondern für das 
Leben lernen, können Sie nachstehendes Listing ab- 
tippen. Es ermöglicht Ihnen, feindliche Schlachtschit- 
fe auch dann zu versenken, wenn der Banknachbar 
nicht da ist, denn Ihr CPC wird sich manche See- 
schlacht mit Ihnen liefern. 


18 ERSRIERESHESE HR SESE SHE EEE SEHE SS SESE IE EIS H 
28 ’* 


U-BOOT VERSENKEN * 
39 ’* VON * 
4u ’* UDO ZIESE * 
sn '’# FUER #* 
68 ’* SCHNEIDER AKTIV * 
708 ’* CPC 464/664/6128 ® 


BB RRRHRRRRHIRIHEIRIHISIRIIHIRIHIIIRSEI SEI 
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150° RKRRKRKRKKKKUKKKKKRERKEKEKREKERUKH 
Sen "KA% Instruktionen %% 
ns RRKKRKRKKKRRKKÄKKRRKKRRKRKKEKRÄKÄEUKRÄHKNN 
de : 

198 MODE 1:INK 8,12:INK 1,24:INK 2, 


7:INK 3,8:PAPER ®:PEN 1:BORDER 12 
288 LOCATE 5,11:PRINT"Moechten Sie 

Instruktionen ?":LOCATE 9,13:PRINT” 
3j>ja --- enter=nein":IF INKEY(45)=® 

THEN 258 ELSE IF INKEY( 18)=8 THEN 
ELS:GOTO 268 ELSE 2088 


2I I RRKRRKRKRKKKKRKKRKRKRKRKKRKKTEER RR RRRK KH 
228 '%%% Hauptprogramm %%% 
23 KRRKKKKRRKRKRKAKKKEKEKEKRRRÄRRÄIHRKR 
240 

258 


GOSUB 1578: REM Spielbeschreibu » 


LISTING 


268 
278 
288 


GOSUB 1488: REM Spielaufbau 
CLEAR 

DEFINT a-z 

298 SYMBOL AFTER 288 

388 SYMBOL 288,0,16,16,16,56,255,25 
4,124:5YMBOL 281,255,239,239,231,23 
1,129,8,129:5YMBOL 282,145,74,52,93 
‚186,44,82,137:5SYMBOL 283,8,16,16,2 

4,24,126,255, 126 

318 GOSUB 1319: REM Spieler U-BOOT 
328 WINDOW#S5,1,48,24,24:PAPER#5,8:P 
EN#5, 1:CL5#5 

338 WINDOW#4,1,48,25,25:PAPERf4,8:P 
ENf#4,1:CL54#4 

348 LOCATE 26,7:PRINT"SPIELER":LOCA 
TE 8,7:PEN 3:PRINT”CPC 464” 

358 WINDOW#2,19,22,9,13:PAPERf2,1:P 
EN#2,3:CL5#2 

368 PEN#2,3:LOCATE#2,2,5:PRINT#2,CH 
R$( 200) ; 

378 WINDOW#3,19,22,14,22:PAPER#3,2: 
PEN#3,3:CL5#3 

388 PEN#3,1:FOR p=1 TO 4:LOCATE#3,p 
‚1:PAINT#3,CHR$( 126) ; :NEXT:PEN#3,3: 

LOCATE#3,2,8:PRINT#3,CHR$( 203) ; 

398 PEN 3:LOCATE 2,12:PRINT CHR$( 28 

3) ;:LOCATE 2,15:PRINT CHR$( 283) ;:LO 
CATE 2,18:PRINT CHRA$( 283) ;:PEN 1 

488 LOCATE 39, 12:PRINT CHR$( 283) ; :L 
OCATE 39, 15:PRINT CHR$( 283) ; :LOGATE 
39,18:PRINT CHR$( 2083) ; 

A418 LOCATE 12,1:PRINT”U-BOOT VERSEN 

KEN" :LOCATE 12,2:PRINT"------------ 


428 GOSUB 1288: REM CPC U-BOOT 

438 CLS#5:PEN#5,1:PRINT#5,"” 

in Zug --" 

448 u=®:boot=-® 

458 ORIGIN 0,9,640,0,408,32:TAG 

468 IF INKEY(B)=8 OR JOY(8)=1 THEN 

PLOT 62,y:PRINT"” ";:y=y+18B 

478 IF INKEY(1)-®8 OR JOY(®)-B THEN 

PLOT x,66:PRINT” ";:x=x+18 

4808 IF INKEY(2)=®8 OR JOY(B)=2 THEN 

PLOT 62,y:PRINT” ";:y=y-1B 

498 IF INKEY(8)=® OR JOY(®8)=4 THEN 

PLOT x,66:PRINT"” ";:x=x-1B 

588 IF INKEY(9)-8 OA JOY(8)-16 THEN 
GOTO 828 

518 IF x<B2 THEN x=B2 ELSE IF x>244 
THEN x=-244 

528 IF y<84 THEN y=B4A4 ELSE IF y>246 
THEN y=246 

538 PLOT x,66,3:PRINT CHR$( 240); 
Sau PLOT 62,y,3:PRINT CHR$( 243); 

558 FOR pau-1 TOD ZB8:NEXT:GOTO 458 
568 

578 

% 

5B8 


-- De 


KRKKRKRKRKKKRKRKKKERRRRRRRRRRKRÄRKR KHK 


RK% CPC’s ZUG %% 


% 

598 
% 

608 

618 CLS#5:PEN#F5,3:LOCATE#5,23,1:PRI 
NT#5,”-- CPC’s Zug --" 

628 xp=542-INT(ERND*19) #18: yp=BA+INT 
(RND#18) #18 

638 IF TEST(Xp,yp)=1 THEN 788 

648 IF TEST(xp,yp)<>B THEN 628 

658 PLOT 562,yp,3:PRINT CHR$( 242); 
668 PLOT xp,66,3:PRINT CHR$( 240); 
678 PLOT xp,yp,3:PRINT CHRA$( 282); 
688 FOR pau-1 TO 15889:NEXT:PLOT 562 
»Yp:PRINT"” ";:PLOT xp,66:PRINT"” "; 
698 CLS#5:PEN#5,1:PRINT#S,” -- D 
ein Zug --":GOTO 458 

788 BORDER 12,24:FOR pau-1 TO 1588: 

NEXT :BORDER 12 

718 ym-188 

728 ym=-ym-4:50UND 1,ym-59,5,5:PLOT 
318,ym,1:FOR pau=1 TO 188:NEXT:PLOT 
318,ym,2:IF ym=-84 THEN 738 ELSE 72 
1%) 

738 explo=® 

748 PEN#3,1:LOCATE#3,2,8:PRINT#3,CH 
A$( 202) ; :50UND 7,688,37,7,,,15 

758 FOR pau=1 TO 288:NEXT:PEN#3,3:L 

OCATE#3,2,8:PRINT#3, CHR$( 203) ; 

768 u=u+1:IF u=-1 THEN 778 ELSE IF u 
=2 THEN 788 ELSE IF u=3 THEN 798 

778 MOVE 638, 198:DRAW 598, 2380,3:MOV 

E 638,230:DRAW 598, 198:PLOT xp,yp,3 
:PRINT CHR$( 281) ;:FOR pau=1 TO 1588 
:NEXT:CLS#5:PENf#5,1:PRINT#5S,” = 

Dein Zug --"”:GOTO 458 

788 MOVE 638, 158:DRAW 598, 182,3:MOV 

E 638,182:DRAW 598, 158:PLOT xp,yp,3 
:PRINT CHA$( 281) ;:FOR pau=1 TO 1588 
:NEXT:CLS#5:PEN#S,1:PRINT#S, " >= 

Dein Zug --”:GOTO 458 

798 MOVE 638, 182:DRAW 598, 134,3:MOV 

E 638, 134:DRAW 598, 182:PLOT xp,yp,3 
:PRINT CHR$( 201); 

888 PLOT x1,y1,1:PRINT CHA$( 281); : 

LOT x2,y2:PRINT CHR$(281);:PLOT x3, 

y3:PRINT CHR$( 281) ; :TAGOFF:CLS#5:GO 

TO 1898 

818 

B2O RKRKRKKKKRKKRKRKKKKERKERRKRARKRREKKGH 


ERRRRRÄRKRRKKKKRKKRÄRRRÄERKRRRRKKTHH 


"KAK SPIELER ZUG %% 


RRRRRKKERRRRRRRKKRRKRARARKRKKAK 


x=x1 AND y=y1 THEN GOTO 958 
x=x2 AND y=y2 THEN GOTO 958 
x=x3 AND y=y3 THEN GOTO 958 
TEST(x,y)<>® THEN 928 ELSE 9 


LISTING 


14] ) 

988 PLOT x,y,3:PRINT CHR$( 282); 

918 FOR pau=1 TO 288:NEXT:CLS#5:60T 

D 578 

928 PEN#4,3:LOCATE#4,5,1:PRINT#4,"> 

> BELEGT <<" 

938 FOR pau=1 TO 19888:NEXT:PEN#A4,1: 

LOCATE#4,5,1:PRINT#4,">> BELEGT < 

an) 

948 FOR pau=1 TO 18898:NEXT:CLSA#4:GO 
TO 458 

958 IF TEST(x,y)=1 THEN 928 ELSE 96 

1%) 

968 ym=188 

978 ym=ym-4:50UND 1,ym+188,4,5:PLOT 
318,ym,1:FOR n=1 TO 188:NEXT:PLOT 

318,ym,2:IF ym=84 THEN 988 ELSE 978 

988 explo=® 

998 PEN#3,1:LOCATE43,2,8:PRINT#3,CH 

A$( 202) ; :SOUND 7,6088,37,7,,,15 

1888 FOR pau=1 TO 288:NEXT:PEN#3,3: 

LOCATE#3,2,8:PRINT#3,CHR$( 203) ; 
1818 boot=boot+1:IF boot=1 THEN 192 

8 ELSE IF boot=2 THEN 19838 ELSE IF 

boot=3 THEN 1948 

1828 MOVE 6,198:DRAW 38,238, 1:MOVE 

6,2380:DRAW 38,198:TAG:PLOT x,y,1:PR 

INT CHR$( 281) ;:FOR pau=1 TO 1588:NE 

XT:CLS#5:G0TO 578 

1838 MOVE 6, 158:DRAW 38,182, 1:MOVE 

6,182:DRAW 38, 158:TAG:PLOT x,y,1:PR 

INT CHR$( 291) ;:FOR pau=1 TO 289:NEX 

T:CLS#5:6G0TO 578 

1848 MOVE 6,182:DRAW 38,134, 1:MOVE 

6,134:DRAW 38, 182:TAG:PLOT x,y,1:PR 

INT CHR$( 281) ;:FOR pau-1 TO 1588:NE 

XT:CLS#5:TAGOFF 


are RRRRRKKKRRRRKRRRRRKKRÄKKKÄRKKR 
1060 ’%%% SPIELENDE % 
%% 

1070 RRKRRRKKRKRKEKKKRKRKKRKÄKRÄRÄRKKÄKKKR 
%% 

1888 s=® 

1898 PEN 1:LOCATE 16,25:PRINT"GAME 


OVER":LOCATE 12, 1:PRINT”"U-BOOT VERS 

ENKEN":IF boot=3 THEN GOTO 1188 ELS 
E 1118 

1188 LOCATE 26,7:PRINT"SPIELER":FOR 
pau=1 TO 128:NEXT:GOTO 1128 

1118 LOCATE 8,7:PRINT"CPC 464” :FOR 
pau=1 TO 128:NEXT 

1128 PEN 3:LOCATE 16,25:PRINT"GAME 

OVER”:LOCATE 12,1:PRINT”U-BOOT VERS 

ENKEN" :s=s+1 

1138 IF s=18 THEN 1178 

1148 IF boot=3 THEN 1158 ELSE 1168 
1158 LOCATE 26,7:PRINT"”SPIELER":FOR 
pau=1 TO 128:NEXT:GOTDO 1898 

1168 LOCATE 8,7:PRINT”CPC 464” :FOR 


pau=1 TO 128:NEXT:GOTO 1898 

1178 LOCATE 18,25:PRINT"Noch ein Sp 
iel (j/n) ?" 

1188 IF INKEY(45)=-® THEN RUN ELSE I 
F INKEY(46)=8 THEN 1778 ELSE 1188 
1198 

120 KKRKRKKRKKRKRKRRKEKARRKKERRERRARKERKRTH 
% 
1218 
% 
1228 
% 
1230 ’ 

1248 x1=82+INT( RND#9) #18: y1=8A+INT( 
ARND#9) #18 

1258 x2=B2+INT( RND#9) #18: y2=246-INT 
( AND*#9) #18 

1268 IF x2=x1 THEN 1258 

1278 x3=244-INT( RND#9) #18: y3=84A+INT 
( RND*9) #18 


"K%R% CPC-U-BOOT %% 


KRKRKRKKKRKRKKEKRKERRÄRRRKRRÄKKERRÄH NH 


1288 IF x3=x2 OR x3=x1 THEN 1278 
1298 RETURN 

1308 

1310 °RKKKKKKKKKKKKKKKKKKKRKEKKKKKKÄLK 
% 

1320 ’%%% SPIELER-U-BOOT %% 
% 

1330 °KKKKKKKKKKKKKKKKKKKKKKÄKKÄEKÄK 
% 

1340 ’ 

1358 WINDOW#1,1,48,2,4:PAPER#1,®8:PE 


N#1,1:CL5#1 

136®8 WINDOW#6,17,22,5,5:PAPERf#6,8:P 

EN#6,2:CLS#6 

1378 p1=® 

1388 CLS#1:PRINT#1,"” Bitte Koo 

rdinaten eingeben” :PRINT#1,"” 
(seite,oben) ":INPUT#6,a,b 

1398 IF a>9 OR b>9 THEN 1388 

1488 TAG: xa=388+b*18B:ya=246-a*#18 

1418 IF a=ai AND b=b1 THEN 1388 

1428 PLOT xa,ya,1:PRINT CHR$( 281); : 

pi=p1+1:IF pi=3 THEN PAPER#6,9:CLS# 

1:CL546:TAGOFF:RETURN ELSE al=a:b1= 

b:GOTO 1388 

1438 

1440 7 KRRRKRKRRKRKKRRKKRKRKRRRRKRRKKRKRRRKRHK 

% 

1458 

% 

1468 

% 

14780 

1488 FOR xlin=88 TO 268 STEP 18:MOV 

E x1lin,68:DRAW xlin,246,1:MOVE xlin 

+298,658:DRAW x1lin+298,246:NEXT xlin 

1498 FOR ylin=248 TO 52 STEP-18B:MOV 

E 88,ylin:DRAW 268,ylin:MOVE 378,yl 

in:DRAW 558, ylin:NEXT 

1588 x=B2:y=266:p=48:TAG 


err 


Spielaufbau %% 


RRRÄRRKKRKRKRKRÄRKRRÄRRRRRRÄKKKKKRKRKR 
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LISTING | 


1518 PLOT x,y:PRINT CHR$(p);:PLOT x 
+298,y:PRINT CHR$(p); :IF x=244 THEN 
1528 ELSE x=x+18:p=p+1:60T0 1518 

1528 x=264:y=244:p=48B 

15308 PLOT x,y:PRINT CHR$(p);:PLOT x 
+9B,y:PRINT CHA$(p);:IF y=82 THEN 1 
548 ELSE y=y-18:p=p+1:60T0 1538 
1548 TAGOFF 

1550 MOVE 286,46:DRAW 286, 272,3:DRA 
W 352,272:DRAW 352,46:DRAW 58,46:DR 
AW 58,272:DRAW 588,272:DRAW 588,46: 
DRAW 352,46 

1568 RETURN 

1570 7° KKKKKKKEEKKKEKKKEKKKRKÄKKÄTÄKR 
PRANIERT: g 

Das Super- 1580 7%%% SPIELANLEITUNG %% 
Listing % 

SIGENBA 1598 °KKKKKKKKKKEKKKKEKKKKKKRKKÄHKÄÄÄKEK 


‘schneider aktiv _ 


1688 


8,42,3:DRAW 3984,42:DRAW 384,74:DRAW 
318,74:DRAW 318, 186:DRAW 3190,74:DR 
AW 328,74:DRAW 328,58:DRAW 326,58:D 
RAW 326,42:DRAW 4908,42:DRAW 498,36: 
DRAW 382,32 

1628 FOR p=244 TO 384 STEP 14:PLOT 
P,36:NEXT 

1638 PRINT CHR$( 24) ;:LOCATE 12,5:PR 
INT” U-BOOT VERSENKEN ":LOCATE 14,8 
:PRINT” by Udo Ziese ":LOCATE 17,12 
:PRINT” ";CHA$( 164) ;" 1985 ":PRINT 
CHR$( 24) ;:FOR pau=1 TO A49809:NEXT 
1648 INK 1,24:CL5:PRINT" Sie 5 
pielen gegen den CPC":PRINT 

1658 PRINT” Zerstoeren Sie die 3 
versteckten” :PRINT 

ren | 1668 PRINT” U-Boote des CPC’s,dur 
fir Schneider Computer —: ch gezielte" :PRINT 

in = 1678 PRINT" Schuesse in die linke 
mo Se Spielhaelfte.":PRINT 

1688 PRINT” Geben Sie die gewuensch 
ten Koordinaten" :PRINT 

1698 PRINT” Ihrer 3 U-Boote ein." 
1788 PRINT" ----- ":PRINT:PRINT 

1718 PAINT” Mit den Cursor-Tasten b 
ringen Sie die”:PRINT 

1728 PRINT” Zielpfeile in die gewue 
nschte Schuss-":PRINT 

1738 PRINT"position. Mit der Copy-T 
aste feuern Sie."”:PRINT 

1748 PRINT” Oder spielen Sie mit 
dem JOYSTICK.” 

1758 PRINT CHRA$( 24); 

1768 LOCATE 15,25:PRINT">> ENTER << 
":IF INKEY( 18)=8 THEN PRINT CHR$(24A 
);:CLS:RETURN ELSE 1768 

1778 INK 1,24:INK 8,1:PAPER ®:PEN 1 
:BORDER 1:CLS 
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LISTING 


BUDGET-MANAGER 


Wozu noch Ausgabenbücher führen? Schneider aktiv 

stellt Ihnen „Budget Manager“ vor, das elektronische 

Ausgabenbuch mit Komfort. Einige wichtige Merk- 

male des Programmes in Stichworten: 

— Dateien werden jeweils für einen Monat geführt 

— Grafische Darstellungen mit Vergleichsmöglich- 
keiten 

— Bequeme Menüsteuerung 

— Dauernde Anzeige der angemeldeten Dateien und 
des Datums. 


Die Hauptauswahl 


Sie erscheint in der oberen Bildschirmzeile und ent- 


hält folgende Punkte: 

— Disk Manager 

— Budget Manager 

— Ende 

Das jeweils invers dargestellte Feld gilt als angewählt, 
wenn Sie die COPY-Taste drücken. Mit “Pfeil links“ 
und “Pfeil rechts“ kann der gewünschte Programm- 
teil ausgesucht werden. 


Der Disk Manager 


Dieser Programmteil ist für die Diskettenverwaltung 
zuständig: 


A.Gruppen vorbereiten 
Hier können Sie bis zu 40 Sachgruppen, denen Sie 
Ihre Einnahmen und Ausgaben zuordnen wollen, ein- 


disk Nanagar Graphics Manager Ende 


ARE 


geben. Das könnten z.B. sein: Einkünfte, Steuern, 
Versicherungen, Behördenausgaben, Kfz-Kosten, 
Hobbies, Kleidung und anderes mehr. Jede Bezeich- 
nung darf höchstens 20 Zeichen lang sein. Der Rah- 
men auf dem Bildschirm dient dabei als Eingabehilfe. 
Die Sachgruppen werden, nachdem Sie eine Eingabe 
nur mit ENTER quittiert haben oder das letzte Feld 
erreicht ist, abgespeichert. 


B. Datum setzen 

Geben Sie die drei Zahlen für das aktuelle Datum je- 

weils zweistellig ein; nach jeder Zahl muß Enter betä- 
tigt werden. Wichtig: Von diesem Datum hängt die 


aktuelle Dabei ab. Am 1.10.87 ist beispielsweise auto- 
matisch die Datei für Oktober angemeldet. Wollen 

Sie noch Nachträge für September machen, geben 
Sie am besten 20.9.86 ein. 


C. Disk vorbereiten 

Mit diesem Menüpunkt geben Sie einer neuen Disket- 
te den Namen (max. 20 Zeichen, z.B. 1986/87). Die 
Sachgruppen können auf Wunsch von einer früher 
angelegten Diskette kopiert werden. 


D.Katalog zeigen 
Zeigt Ihnen das Inhaltsverzeichnis einer Diskette an. 


E. Files umbenennen 

Dieser Punkt muß immer dann gewählt werden, wenn 
Sie mit einer neuen Datendiskette, die jedoch bereits 
mit Punkt C vorbereitet wurde und evtl. auch bereits 
Daten enthält, die Arbeit beginnen. Bei einer neu an- 
gelegten Diskette müssen Sie darauf achten, daß sie 
vorbereitet wurde, die Sachgruppen eingetragen sind 
und bereits ein Datum vermerkt wurde. 


H. Rückkehr 
Nach dem Abschluß der Punkte A-G können Sie 
wieder im Disk Manager wählen. 


Der Budget Manager 


Dieser Programmteil — die Hauptsache des ganzen 
Listings — dient dazu, neue Einnahmen und/oder Aus- 
gaben in die aktuelle Datei (die, wie oben geschildert, 
vom aktuellen Datum abhängt) aufzunehmen. 


A.Datei neu einrichten 

Bitte wählen Sie diesen Punkt nur dann, wenn Sie für 
den aktuellen Monat noch keine Eintragungen vorge- 
nommen haben. Beachten Sie auch, daß Sie die Frage, 
ob für dieses Jahr bereits Daten existieren, korrekt 
mit J oder N beantworten. Bei einer versehtnlichen 
Eingabe von N können bis zu 12 Monatsdateien ver- 
loren gehen! 


B. Datei anmelden 

Dieser Punkt ist, im Gegensatz zu A, immer dann zu 
wählen, wenn bereits eine Datei für den aktuellen Mo- 
nat existiert. Diese wird in den Speicher eingelesen. 


C. Datei bearbeiten 

Der Inhalt der aktuellen Datei, die mit A vorbereitet 
oder mit B angemeldet wurde, erscheint als Tabelle 
auf dem Bildschirm. Die Spalten beinhalten von links 
nach rechts: 

1. Gruppenname 

2. aktueller Betrag _ 

3. Tag der letzten Änderung 

4. Sollbzw. Haben 

Zu sehen sind nur die ersten 20 Gruppen. Mit der 
Leertaste schalten Sie auf die jeweils andere Hälfte 
um. Zu beiden Seiten der Tabelle ist jeweils eine Mar- 
kierung zu sehen, die man mit “Pfeil nach unten“ und 
“Pfeil nach oben“ bewegen kann. Wenn Sie E drük- 
ken, können Sie zu dem gerade angezeigten Feld eine 
Einnahme addieren. Mit A wird dementsprechend ein 
ausgegebener Betrag subtrahiert. Der angezeigte Ge- 
samtbetrag und das Datum der letzten Änderung 
wechseln in der Anzeige. 


Bitte lesen Sie weiter auf Seite 52 
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LISTING 


LUTZ 22 2 0.222.222 2 22 22.2 22.22.22. 2.222.223 
1198 ’* BUDGET MAMAGER * 
120 ’* VON ® 
130 '* ALWIN ERTL * 
140 '* FUER * 
1590 ’* SCHNEIDER AKTIV ® 
168 ’* CPC 464/664/6128 * 
170 surereriergenengenmuneeeneeie 
230 

248 ’+++ Hauptprogramm +++ 

258 

268 OPENOUT"dummy"” :MEMORY HIMEM-1:C 


LOSEOUT:DIM gr$(48) ,‚grbetr(4®8) ‚,‚hbet 

r(48) ‚abetr{48) ,‚bt(48) ‚ms( 12) ‚menu$ 

(3,9) 

278 day=®:monat=®: jahr=8:dname$="": 

filename$="":hwahl=1 

288 INK 8,25:PAPER 8:BORDER 25:INK 

1,1:PEN 1:MODE 2 

298 WINDOW #9,1,88,2,24:WINDOW #1,1 

‚88,1,1:WINDOW 4#42,1,80,25,25 

388 FOR i=1 TO 4:READ menu$(8,i) :NE 

XT i:FOR i=1 TO 9:READ menuf$( 1,i):N 

EXT i 

318 FOR i=1 TO 5:READ menu$( 2,i) :NE 

XT i:FOR i=1 TO 7:READ menu$( 3,i):N 

EXT i:GOSUB 2838 

328 ’"Hauptauswahl 

338 CLS#1:FOR i=1 TO A4:IF i=hwahl T 

HEN PRINT#1,CHR$( 24) ;menu$( 8,i) ; CHR 

$( 24); ELSE PRINT#1,menu$(8,i); 

PRINT#1," "=:NEXT i 

t$=INKEY$:IF t$="" THEN 358 

368 IF t$=CHR$( 224) THEN 408 

t$=CHR$( 243) THEN hwahl=hwah 

hwahl>4 THEN hwahl=1 

t$=CHRA$( 242) THEN hwahl=hwah 

hwahl<1 THEN hwahl=4 

GOTO 338 

ON hwahl GOTO 418,928, 1298, 1978 
"Disk Manager 

men=1:G0OSUB 2978 

438 ON wahl GOTO 440,530,620,730,77 

0,828,868, 328 

448 ’(Gruppenbezeichnungen eingeben 

) 

458 PRINT"Bezeichnungen der Reihe n 

ach eingeben; Abbruch mit ENTER" 

468 breite=28:hoehe=22:y=2:x=198:605 

UB 2418:x=49:G05UB 2418:ind=8 

478 ind=ind+1:IF ind<21 THEN LOCATE 
11,2+ind ELSE LOCATE 5®8,2+ind-28 

488 LINE INPUT ""”,gr$(lind) :IF gr$(i 

nd) <>"" AND ind<48 THEN 4708 

498 SOUND 1,28,28,15:LOCATE 1,1:PRI 

NT SPACE$( 79) ; :LOCATE 1,1:INPUT"”AILI 

es richtig eingegeben”; jn$:IF UPPER 

$(LEFT$( jn$, 1))="N” THEN CL 

5:G0TO 458 

588 CLS:x=17:y=10:breite=47:hoehe=3 


:GOSUB 2418:L0OCATE 18, 11:PRINT"Grup 
pennamen werden gespeichert - Bitte 
warten." 

518 OPENOUT"”items.dat": 
8:PRINT#9,gr$(i) :NEXT i 
528 CLS:60T0 418 

538 ’(Datum setzen) 

548 PRINT:PRINT”Datum setzen - Tag/ 
Monat/Jahr (2-stellig) jeweils mit 
ENTER abschliessen!" 

5580 x=36:y=-18:breite=8:hoehe=3:G0SU 
B 2418:LOCATE 39, 11:PRINT”. rs 

568 LOCATE 37,11:INPUT”",day:LOCATE 
48,11:INPUT"”",monat:LOCATE 43,11:1I 
NPUT”"”, jahr 

578 LOCATE 37,11:PRINT USING"##”;da 
y:LOCATE 48, 11:PRINT USING”##"” ;mona 
t:LOCATE 43, 11:PRINT USING”A#” ; jahr 
588 SOUND 1,28,28,15:LOCATE 1,22:IN 

PUT"Datum richtig”; jn$:IF UPPER$(LE 
FT$Cjn$,1))="N" THEN 568 

598 CLS:x=21:y=18:breite=38:hoehe=3 
:GOSUB 2418:L0CATE 22,11:PARINT"Datu 

m wird gespeichert - Bitte warten.” 
688 OPENOUT"date.dat":PRINT#9,day:P 

RINT#9,monat :PRINT#9, jahr :CLOSEOUT 

618 CLS:G0OSUB 2838:G0T0 418 

628 ’(Disk vorbereiten) 

638 PRINT:PRINT CHRA$( 24) ;"Diskette 
vorbereiten"; CHR$( 24) :PRINT:PRINT:P 

AINT"Bitte beachten:"”:PRINT"Datum u 

nd evtl. Gruppenbezeichnung 

en muessen extra gesetzt werden!” 

648 LOCATE 1,9:PRINT SPACE$( 79); :LO 

CATE 1,9:PRINT"Bitte Diskettennamen 
eingeben:":x=28:y=18:breite=28:hoe 
he=3:605UB 2418:LOCATE 21,1 

1:LINE INPUT"”,dname$ 

658 LOCATE 1,9:PRINT SPACE$( 79); :L0O 

CATE 1,9:INPUT"Diskettenname korrek 
t"; jn$:IF UPPER$CLEFT$( jn$, 1))="N" 

THEN 648 

668 LOCATE 1,15:INPUT"Bereits vorha 

ndene Gruppenbezeichnungen ueberneh 

men"; jn$:IF UPPER$(LEFT$( jn$, 1))="N 
" THEN 7108 

678 CLS:x=14:y=18:breite=53:hoehe=3 
:GOSUB 2418:LOCATE 15, 11:PRINT"Bitt 

e Originaldiskette einlegen, dann T 

aste druecken." 

688 WHILE INKEY$="":WEND:OPENIN"ite 

ms.dat”:FOR i=1 TO 48:LINE INPUT#9, 

gr$(ti):NEXT i:CLOSEIN 

698 LOCATE 21,11:PRINT" neue D"” 

7868 WHILE INKEY$="":WEND:OPENOUT"it 

ems.dat”:FOR i=1 TO 48:PRINT#9, er$t( 

i) :NEXT i:CLOSEOUT 

718 CLS:x=28:y=18:breite=41:hoehe=3 
:GOSUB 2418:L0OCATE 21,11:PRINT"”"Disk 

ette wird vorbereitet - Bitte warte 


FOR i=1 TO 4 
:CLOSEOUT 
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728 OPENOUT"name.dat"” :PRINT#9,dname 

$:CLOSEOUT:CLS:GOTO 418 

738 "(Katalog anzeigen) 

748 x=1:y=1:breite=78:hoehe=23:G605SU 

B 2418 

758 WINDOW #43,2,79,3,23:WINDOW SWAP 
8,3:CAT:PRINT:PAINT"Bitte Taste be 
taetigen.";:WINDOW SWAP 3,8 

768 WHILE INKEY$="":WEND:CLS:GOTDO 4 
10 

778 '(Files umbenennen) 

788 LOCATE 1,5:PRINT"Alter Dateinam 

e:":x=18:y=7:breite=12:hoehe=3:6G0SU 
B 2418 

798 LOCATE 1,15:PRINT"Neuer Dateina 

me:”:y=17:G0SUB 2418 

888 LOCATE 11,8:INPUT”",alt$:LOCATE 
11,18: INPUT"”" ,neu$ 

818 alt$=UPPER$( alt$) :neu$=UPPER$(n 
eu$) :|REN,@neu$,@alt$:CL5:60T0 738 

828 ’(Files loeschen) 

838 LOCATE 1,9:PRINT"Dateiname:":x= 
18:y=11:breite=12:hoehe=-3:60SUB 241 
1%) 

848 LOCATE 11,12:INPUT"”",alt$ 

859 alt$=UPPER$(alt$) :| ERA,@alt$:CL 
5:60T0 738 

868 ’(Diskette anmelden) 

878 x=28:y=18:breite=48:hoehe=3:605 
UB 2418:LOCATE 21,11:PRINT"Diskette 
wird angemeldet - Bitte warten.” 
888 OPENIN"name.dat”:LINE INPUT#9,d 

name$:CLOSEIN 

898 OPENIN"date.dat”:INPUT#9,day:IN 
PUT#9,monat :INPUT#9, jahr :CLOSEIN 
988 OPENIN"items.dat”:FOR i=1 TO 48 
:LINE INPUT#9,gr$(i) :NEXT i:CLOSEIN 
918 CLS:G0OSUB 2838:6G0T0 Ai 

928 ’Budget Manager 

938 men=2:G05UB 2878 

948 ON wahl GOTO 958, 19050, 1188, 328 
958 ’(Datei neu einrichten) 

968 filename$=MID$( STR$l monat) ,2) +" 
-"+MID$CSTRA$C jahr) ‚„2)+".DAT": jfile$ 
=MID$( STA$( jahr) ‚2)+".DAT":GOSUB 28 
38 

978 CLS:PRINT:PRINT"Datei ";filenam 
e$;" neu einrichten." :PRINT:PRINT:P 
RINT 

988 PRINT"Existiert fuer das Jahr " 
;MID$( STA$( jahr) ‚2) ; :INPUT” bereits 
eine Datei"; jn$:IF UPPER$LLEFT$( jn 
$,1))="N” THEN 1818 

998 OPENIN jfile$:INPUT#9,vg1$:CL05S 
EIN:IF INSTRA(vg1$,CHR$(monat))=®8 TH 
EN vgl$=vg1$+CHR$(l monat) :OPENOUT jf 
ile$:WRITE#9,vg1$:CLOSEOUT: 

GOTO 1928 

1888 PR1NT:PRINT:INPUT"”Datei bereit 


s vorhanden. Alten Inhalt loeschen" 
;jn$:IF UPPER$CLEFT$L jn$, 1))="N"” TH 
EN filename$="":GOSUB 2838: 

GOTO 1848 ELSE 1838 

1818 vg1$=CHRA$( monat) :OPENOUT jfile 
$:WRITE#9, vg1$:CLOSEOUT 

1828 CLS:x=21:y=18:breite=39:hoehe= 
3:G0S5UB 2418:LOCATE 22,11:PRINT"Dat 
ei wird eingerichtet - Bitte warten 
1838 FOR i=1 TO 48:grbetr(i)=®:bt(i 
)=day:NEXT i:OPENOUT filename$:FOR 
i=1 TO AQB:PRINT#9,grbetr(i) :PRINT#9 
‚bt(i) :NEXT i:CLOSEOUT 

184AM CLS:GOTO 928 

1858 ’(Datei anmelden) 

1868 filename$=MID$( STA$( monat) ,2) + 
"-"+MID$CSTRA$C jahr) ,2) +" .DAT" 

1878 CLS:x=22:y=18:breite=37:hoehe= 
3:G0S5UB 2418:L0OCATE 23, 11:PRINT"Dat 
ei wird angemeldet - Bitte warten.” 
1888 OPENIN filename$:FOR i=1 TO 48 
:INPUT#9,grbetr(i) :INPUT#9,bt(i):NE 
XT i:CLOSEIN 

1898 CLS:G0SUB 2839:G0T0 928 

1188 ’(Bearbeiten) 

1118 x=18:y=1:breite=44:hoehe=23:60 
SUB 2418:PRINT CHR$( 24) ;:LOCATE 19, 
2:PRINT"Gruppe"; :LOCATE 42,2:PRINT" 
1A"; :LOCATE 47,2:PRINT"Betr 

ag”; :LOCATE 58,2:PRINT"S/H”;CHR$( 24 
); 

1128 FOR i=2 TO 22:L0OCATE 48,i:PRIN 
T”"]":LOCATE 45,i1:PRINT"”] ":LOCATE 56 
‚„i:PRINT”]":NEXT i:haelfte=®:zeile= 
1 

1138 sub=haelfte*28:FOR i=1+sub TO 
28+sub:LOCATE 19,i+2-sub:PRINT SPAC 
E$( 28) :LOCATE 19,i+2-sub:PRINT grf$t( 
i) :LOCATE 42,1i+2-sub:PRINT 
USING"”##” ;bt(i) :LOCATE 47,i+2-sub:P 
RINT USING" AHHHH. HA” ;grbetr(i) 

1148 LOCATE 58,i+2-sub:PRINT SPACE$ 
(5) :LOCATE 58,i+2-sub:IF grbetr(i)> 
8 THEN PRINT"Haben"” ELSE IF grbetr( 
i)<@® THEN PRINT"”Soll"” 

1158 NEXT i 

1168 LOCATE 17,zeile+2:PRINT"”>":LOC 
ATE 64, zeile+2:PRINT"<" 

1178 t$=UPPER$( INKEY$) :IF t$="" 
N 1178 

1188 LOCATE 17,zeile+2:PRINT"” ":LOC 
ATE 64, zeile+2:PRINT” "” 

1198 IF t$=" ”" THEN haelfte=ABS( NOT 
(-haelfte)) :G0TO 1138 

1288 IF t$=CHR$( 127) THEN 1268 

1218 IF t$=CHR$( 241) THEN zeile=zei 
le+1:IF zeile>28 THEN zeile=1 

1228 IF t$=CHR$( 248) THEN zeile=zei 
le-1:IF zeile<1i THEN zeile=28 
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1238 IF t$="A" THEN LOCATE 64, zeile 
+2:1INPUT"Ausg.: ",aus:LOCATE 64,zei 
le+2:PRINT SPACE$( 15) :grbetr( zeile+ 
sub) =grbetr( zeile+sub) -aus: 
bt(zeile+sub) =day:GOTO 1138 


1248 IF t$=-"E" THEN LOCGATE 64,zeile 
+2:INPUT"Einn.: ",ein:LOCATE 64,zei 


le+2:PRINT SPACE$( 15) :grbetr( zeile+ 
sub) =grbetr( zeile+tsub) tein: 
bt(zeile+sub) =day:GOTO 1138 

1258 GOTO 1168 

1268 CLS:x=18:y=18:breite=45:hoehe= 
3:605UB 2418:LOCATE 19, 11:PRINT"”Dat 

ei wird zurueckgespeichert - Bitte 

warten.” 

1278 OPENOUT filename$:FOR i=-1 TO 4 
8:PRINT#9,grbetr(i) :PRINT#9,bt(i):N 
EXT i:CLOSFEOUT 

1288 CLS:GOTO 928 

1298 ’Graphics Manager 

1388 men=3:G605UB 2978 

1318 ON wahl GOTO 1328, 1438,1518,16 
58, 1788,328 

1328 ’(Saeulen Jahr) 

1338 jfile$=MID$( STR$( jahr) ,2) +”.DA 
T":OPENIN jfile$:INPUT#9,vg1$:CLOSE 
IN 

1348 x=20:y=18:breite=41:hoehe=3:60 
SUB 24198:L0OCATE 21, 11:PRINT"Dateien 
werden bearbeitet - Bitte warten.” 
1358 FOR i=1 TO 12:ms(i)=8:IF INSTR 
(vg1l$,CHR$(i)) THEN mfile$=MID$( STR 
$(i) ,2)+"”-"+jfile$:OPENIN mfile$:FO 
R j=1 TO AB:INPUT#Z9,betr:ms 
(i)=ms(i)+betr:INPUT#9,dummy:NEXT j 
:CLOSEIN 

1368 NEXT i:CLS 

1378 GOSUB 2188:F0OR i=1 TO 12:IF ms 
(i)=® THEN 1398 

1388 FOR j=-jfak*(-jmi) TO jfak*(ms( 
i)-jmi) STEP SGN( jfak*ms(i)) :MOVE 4 
@+(i-1)*46, j+58:DRAWA 38,80:NEXT j 
1398 NEXT i:MOVE 48, jy®8:DRAWR 12*46 
‚„B:MOVE 498,58:DRAW 48,358 

1488 FOR i=8 TO jmi STEP -jskal:MDV 
E 48, jfak*( i-jmi) +508:DRAWR -4,8:NEX 
T i:FOR i=8 TO jma STEP jskal:MOVE 
a0, jfak*( i-jmi) +58:DRAWA -4 

‚„Ba:NEXT i 

1418 LOCATE 1,2:PRINT CHR$( 24) ; "Mon 
atliche Ausgaben"; jahr; CHA$( 24) ;" 

Skalierung: 1 Einheit ="; jskal;"D 

M"”:LOCATE 1,22:PRINT"Bitte 

Taste betaetigen."” 

1428 WHILE INKEY$="":WEND:CLS:GOTO 
1298 

1438 ’(Saeulen Gruppen/Monat) 

1448 CLS:GOSUB 2258 

1458 FOR i=1 TO 48:IF grbetr(i)=8 T 
HEN 1478 


1468 FOR j=mfak*( -mmi) TO mfak*(grb 
etr(i)-mmi) STEP SGN(mfak*grbetr(i) 
) :MOVE A48+(i-1)*14, j+50:DRAWR 6,8:N 
EXT j 

1478 NEXT i:MOVE A48,my®B:DRAWR 48*14 
‚@:MOVE 48,58:DRAW 48,358 

1488 FOR i=8 TO mmi STEP -mskal:MOV 
E 48,mfak*( i-mmi) +58:DRAWR -4,8:NEX 
T i:FOR i=8 TO mma STEP mskal:MOVE 
AB,mfak*( i-mmi) +58:DRAWR -4 

‚„O:NEXT i 

1498 LOCATE 1,2:PRINT CHR$( 24) ;"Aus 
gaben/Einnahmen Monat";monat;"”,"; ja 
hr; CHR$( 24) ;"” Skalierung: 1 Einh 
eit =";mskal;"DM":LOCATE 1, 
22:PRINT"Bitte Taste betaetigen."” 
1588 WHILE INKEY$="":WEND:CLS:GOTO 
1298 

1518 ’(Saeulen Gruppen/Jahr) 

1528 CLS: jfile$=MID$( STRA$( jahr) ,2) + 
".DAT":OPENIN jfile$:INPUT#9,vg1$:C 
LOSEIN 

1538 x=28:y=18:breite=41:hoehe=3:6G0 
SUB 2418:LOCATE 21, 11:PRINT"Gruppen 
werden aufaddiert - Bitte warten.” 
1548 FOR i=-1 TO Aß:hbetr(i)=grbetr( 
i):grbetr(i)=®:NEXT i 

1558 FOR i=1 TO 12:IF INSTRA(vg1$,CH 
A$Ci))=B THEN 1578 

1568 mfile$=MID$( STA$Li) ,2)+"-"+jfi 
le$:0OPENIN mfile$:FOR j=1 TO 48:INP 
UT#49,betr:grbetr( j) =grbetr( j) +betr: 
INPUT#9,dummy :NEXT j:CLOSEI 

N 

1578 NEXT i:CLS 

1588 GOSUB 2258:FOR i=1 TO AB:IF gr 
betr(i)=®8 THEN 1688 

1598 FOR j=mfak*(-mmi) TO mfak*(grb 
etr(i)-mmi) STEP SGN(mfak*grbetr(i) 
) :MOVE 48+(i-1)*14, j+58:DRAWR 6,8:N 
EXT 5 

1688 NEXT i:MOVE A48,my®B:DRAWR 48*14 
‚8:MOVE 40,58:DRAW 490,358 

1618 FOR i=8 TO mmi STEP -mskal:MOV 
E AB,mfak*( i-mmi) +58:DRAWR -4,8:NEX 
T i:FOR i=8 TO mma STEP mskal:MOVE 
aB,mfak*( i-mmi) +58:DRAWR -4 

‚„ßö:NEXT i 

1628 FOR i=1 TO A48:grbetr(i)=hbetr( 
i):NEXT i 

1638 LOCATE 1,2:PRINT CHA$( 24) ;"Aus 
gaben/Einnahmen”; jahr ; CHR$( 24) ;" 
Skalierung: 1 Einheit =";mskal; "DM 
":LOCATE 1,22:PRINT"Bitte T 

aste betaetigen."” 

1648 WHILE INKEY$="":WEND:CLS:GOTO 
1298 

1658 ’(Gruppenvergleich Monat) 

1668 CLS:PRINT:PRINT:INPUT"”Mit welc 
hem Monat (1..12) soll verglichen w 
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erden" ; vm:PRINT :PRINT : INPUT"”In welc 
hem Jahr? 19",vj 

1678 CLS:x=17:y=18:breite=47:hoehe= 
3:G05UB ?2418:LOCATE 18, 11:PRINT"Ver 
gleichsdatei wird eingelesen - Bitt 
e warten.” 

1688 vfile$=MID$( STR$( vm) ,2) +"—-"+MI 
D$CSTR$CVJ) ,2)+".DAT":OPENIN vfile$ 
:FOR i=1 TO 48:INPUT#9,hbetr(i) :INP 
UT49, dummy :NEXT i:CLOSEIN 

1698 CLS:GOSUB 2328 

17288 FOR i=1 TO 48:IF grbetr(i)=® T 
HEN 1728 

17138 FOR j=vfak*(-vmi) TO vfak*(grb 
etr(i)-vmi) STEP SGN(vfak*grbetr(i) 
):PLOT 43+( i-1)*14, j+508:PLOT 54+(i- 
1)*14,j+50:NEXT j:PLOT 43+( 
i-1)*#14, j+50:DRAWR 11,0 

1728 NEXT i:FOR i=1 TO 48:IF hbetr( 
i)=® THEN 1748 

1738 FOR j=vfak*(-vmi) TO vfak*(hbe 
tr(i)-vmi) STEP SGN( vfak*hbetr(i)): 
MOVE A6+(i-1)*14, j+50:DRAWR 4,8:NEX 
Tj 

1748 NEXT i:MOVE 48,vy®:DRAWR 48#14 
‚@:MOVE 498,598:DRAW 48,358 

1758 FOR i=8 TO vmi STEP -vskal:MOV 
E 48, vfak*( i-vmi) +598:DRAWR -4,8:NEX 
T i:FOR i=8 TO vma STEP vskal:MOVE 
48,vfak*( i-vmi) +58:DRAWR -4 

‚„B:NEXT i 

1768 LOCATE 1,2:PRINT CHR$( 24) ;"lee 
re Saeulen:";monat;"/"; jahr; "” au 
sgef. Saeulen:";vm;"/";vj;CHR$( 24); 
" 1 Einheit =";vskal;" 

DM” :LOCATE 1,22:PRINT"Bitte Taste b 
etaetigen." 


1778 WHILE INKEY$="":WEND:CLS:GOTO 
1298 
1788 ’(Gruppenvergleich Jahr) 


1798 CLS:PRINT:PAINT:INPUT"Mit welc 
hem Jahr soll verglichen werden? 1 
9" ,vj 

1888 CLS:x=12:y=18:breite=57:hoehe= 
3:G0S5UB 2418:L0OCATE 13, 11:PRINT"”Dat 
eien werden eingelesen und aufsummi 
ert - Bitte warten." 

1818 jfile$=MID$LSTRA$LVJ),2)+"”.DAT"” 
:FOR i=1 TO 48:abetr(i)=grbetr(i):g 
rbetr(i)=®:hbetr(i)=®:NEXT i 

1828 orgfile$=MID$( STR$C jahr) ,2) +”. 
DAT” :OPENIN orgfile$:INPUT#49,vg1$:C 
LOSEIN 

1838 FOR i=1 TO 12:1F INSTA(vg1$,CH 
R$LIi))=B THEN 1858 

1848 dfile$=MID$( STR$Li) ,2) +"-"+org 
file$:0OPENIN dfile$:FOR j=1 TO 48:1 
NPUT#9,betr:grbetr( j) =grbetr( j) +bet 
r:INPUT#9,dummy:NEXT j:CLOS 

EIN 
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1858 NEXT i:LOCATE 31,28:PRINT CHR$ 

(24) ;"Diskette wechseln?” ;CHR$( 24) ; 
:WHILE INKEY$="":WEND:LOCATE 31,28: 

PRINT SPACE$( 18) :OPENIN jfi 

le$: INPUT#9,vg1$:CLOSEIN 

1868 FOR i=i TO 12:IF INSTA(vg1$,CH 

RA$(i))=8 THEN 1888 

1878 dfile$=MID$ STA$Li) ,2)+"-"+jfi 
le$:0OPENIN dfile$:FOR j=1 TO A4B:INP 
UT#9,betr:hbetr( j) =hbetr( j)+betr:IN 

PUT#9, dummy :NEXT j:CLOSEIN 

1888 NEXT i:CLS:GOSUB 23208 

1898 FOR i=1 TO 48:IF grbetr(i)=® T 
HEN 1918 

1988 FOR j=vfak*(-vmi) TO vfak*(grb 
etr(i)-vmi) STEP SGN(vfak*grbetr(i) 
) :PLOT 43+(i-1)*14, j+58:PLOT 54A+li- 
1)*14, j+50:NEXT j:PLOT A3+{ 
i-1)#14, j+50:DRAWR 11,8 

1918 NEXT i:FOR i=1 TO AB:IF hbetr( 
i)=8 THEN 1938 

1928 FOR j=vfak*(-vmi) TO vfak*#(hbe 
tr(i)-vmi) STEP SGN{vfak#hbetr(i)): 

MOVE 46+( i-1)*14, j+58:DRAWR 4,8:NEX 
Tj 

1938 NEXT i:MOVE 48,vy®:DRAWR 40*#14 
‚8:MOVE 40,58:DRAW 48,358 

1948 FOR i=8 TO vmi STEP -vskal:MOV 
E AB,vfak*(i-vmi) +58:DRAWR -4,8:NEX 
T i:FOR i=8 TO vma STEP vskal:MOVE 
48,vfak*( i-vmi) +598:DRAWR -4 

„B:NEXT i 

1958 LOCATE 1,2:PRINT CHR$( 24) ;"lee 
re Saeulen:"; jahr; ” ausgef. Saeu 
len:"”;vj;CHR$( 24) ;” ı Einheit 
=";vskal;"DM"”:LOCATE 1,22:P 

RINT"”"Bitte Taste betaetigen." 

1968 WHILE INKEY$="":WEND:CLS:GOTO 
1298 
1970 
1988 
$ 
1998 MODE 2:PRINT"Auf Wiedersehen.. 
.":PRINT:END 

2088 ” 

2818 
2828 

2838 ’Statuszeile anzeigen 

2848 CLS#2:PRINT#2,CHRA$( 24); :IF dna 

me$="" THEN PRINT#2,"Keine Diskette 
angemeldet. "; ELSE PARINT#2,"Disk 

ette ”";dname$;"” angemeldet. 


"Programm beenden 
CLS:dfile$="*.BAK":]| ERA,@dfile 


’+++ Unterprogramme +++ 


[2 


2858 IF filename$=""” THEN PRINT#2,” 
Keine Datei angemeldet. "; ELSE PR 
INT#2,”"Datei ";filename$;” angemeld 
et. "”; 

2868 PRINT#Z2,"Datum:"”;day;"/";monat 
;"/"”; jahr ; CHR$( 24) ; :RETURN 

2878 "’Untermenue-Auswahl 
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20888 x=18:y=5:hoehe=1:WHILE menu$( m 

en,hoehe) <>"":hoehe=hoehe+1:WEND 

2898 hoehe=hoehe+t1:breite=398:G0O5UB 

2418:hoehe=hoehe-2:wahl=1 

2188 FOR i=i TO hoehe:LOCATE x+2,yt+t 

i:IF i=wahl THEN PRINT CHR$( 24) ;men 
u$(men,i);CHR$( 24) ; ELSE PRINT menu 

$(men,i); 

2118 NEXT i 

2128 t$=INKEY$:IF t$="" THEN 2120 
2138 IF t$=CHR$( 224) THEN 2178 

2148 IF t$=CHA$( 241) THEN wahl=wahl 
+1:IF wahl>hoehe THEN wahl>=1 

2158 IF t$=CHA$( 248) THEN wahl=wahl 
-1:IF wahl<1 THEN wahl=hoehe 

2168 GOTO 2188 

2178 SOUND 1,28,28, 15:CLS:RETURN 

2188 ’Jahresminima und -maxima 

2198 jma=-18880808:FOR i=1 TO 12:IF 

ms(i)>jma THEN jma=ms(i) 

2288 NEXT i:jmi=jma:FOR i=1 TO 12:1 

F ms(i)<jmi THEN jmi=ms(i) 

2218 NEXT i:IF jmi>® THEN jmi=8 

2228 IF jmi=jma THEN 2248 

22380 jfak=388/( jma-jmi) : jyd=( 308/(j 

ma-jmi))*(-jmi)+58:IF ( jma-jmi)>388 
THEN jskal=188 ELSE jskal=18 

2248 RETURN 

225% ’Monatsminima und -maxima 

2268 mma=-19888888:FOR i=1 TO AB:IF 

grbetr(i)>mma THEN mma=grbetr(i) 
2278 NEXT i:mmi=mma:FOR i=-1 TO AB:1I 

F grbetr(i)<mmi THEN mmi=grbetr(i) 
2288 NEXT i:IF mmi>® THEN mmi=® 

2298 IF mmi=mma THEN 2318 

2308 mfak=3808/( mma-mmi) :my®d=( 388/(m 

ma-mmi)) *( -mmi) +50: IF (mma-mmi) >388 
THEN mskal=-188 ELSE mskal=18 

2318 RETURN 

2328 ’Vergleichsminima und -maxima 
2338 vma=-1888888:FOR i=1 TO A48:IF 
grbetr(i)>vma THEN vma=grbetr(i) 
2348 IF hbetr(i)>vma THEN vma=hbetr 
(i) 

2358 NEXT i:vmi=vma:FOR i=-1 TO 48:1 
F grbetr(i)<vmi THEN vmi=grbetr(i) 
2368 IF hbetr(i)<vmi THEN vmi=hbetr 
(i) 

2378 NEXT i:IF vmi>®d THEN vmi=® 
2388 IF vmi=vma THEN 2488 

2398 vfak=388/( vma-vmi) :vy@d=( 388/(v 
ma-vmi))*(-vmi) +580:IF (vma-vmi)>388 
THEN vskal=188 ELSE vskal=18 

24088 RETURN 

2418 ’Rahmen zeichnen 

2428 LOCATE x,y:PRINT CHA$( 158) ;5TR 
ING$(breite, 154) ; CHR$( 156) ; :LOCATE 
x,y+hoehe-1:PRINT CHR$( 147) ;STRING$ 

(breite, 154) ;CHR$( 153) ; 

2438 FOR ii=y+t1 TO y+thoehe-2:LOCATE 


x,ii:PRINT CHRA$( 149) ;SPACE$(breite 
J) ; CHR$( 149) ; :NEXT ii:RETURN 
2448 
2458 ’+++ Daten +++ 
2468 
2478 ’Menue-Texte 
2488 DATA Disk Manager,Budget Manag 
er,Graphics Manager,Ende 
2498 DATA Gruppen vorbereiten,Datum 
setzen,Disk vorbereiten,Katalog an 
zeigen,Files umbenennen, Files loesc 
hen,Diskette anmelden, Rueck 
kehr, ”" 
2588 DATA Datei neu einrichten,Date 
i anmelden,Datei bearbeiten,Rueckke 
hr,” 
2518 DATA Saeulen Jahr,Saeulen Grup 
pen fuer Monat ,Saeulen Gruppen fuer 
Jahr,Gruppenvergleich Monat, Gruppe 
nvergleich Jahr, Rueckkehr, “ 


BUDGET-MANAGER 


Fortsetzung von Seite 47 


Ein Druck auf die DEL-Taste beendet die Bearbeitung 
und die Datei wird auf Diskette zurückgespeichert. 

Es ist günstig, die Einnahmen und die Ausgaben auf 
diese Weise jeweils täglich einzugeben, damit die Da- 
tei immer auf dem neuesten Stand ist. 


Der Graphics Manager 


Dieser Programmteil soll Ihre Ein- und Ausgaben in 
übersichtlicher Form grafisch darstellen. Sofern der 
aktuelle Monat gewünscht wird, müssen Sie keine wei- 
teren Eingaben machen. Bei Vergleichen muß ledig- 
lich der Vergleichsmonat bzw. das Vergleichsjahr ein- 
gegeben werden. 


A.Säulen — Jahr 
Es werden die Gesamtein- und -ausgaben je Monat 
für das laufende Jahr dargestellt. 


B. Säulengruppen — Monat 
Grafische Darstellung des aktuellen Standes jeder 
Gruppe im laufenden Monat. 


C. Säulengruppen — Jahr 
Wie B, jedoch für das laufende Jahr nach Sachgruppen. 


D.Gruppenvergleich Monat 
Wie B, jedoch Vergleich zweier Monate. 


E. Gruppenvergleich Jahr 

Wie C; zwei Jahre werden verglichen. 

Beachten Sie hier, daß Sie eventuell die Diskette 
wechseln müssen, sobald die entsprechende Auffor- 
derung erscheint. Erst nach einem Tastendruck wer- 
den die Daten des Vergleichsjahres eingelesen. 


Allgemeines: 


Wichtig ist, daß alle Monatsdaten für ein Jahr jeweils 
auf derselben Diskettenseite gespeichert sind. Sie soll- 
ten sich zusätzlich zum Programm alle Gruppenbe- 
zeichnungen der Reihe nach auf einen Zettel notie- 
ren, damit Sie die Säulen der Grafik den richtigen 
Gruppen zuordnen können. (Alwin Ertl) 
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VOKABELTRAINER 


Unser Autor Peter Oster hat ein Programm geschrie- 
ben, das sicher für alle, die Sprachen lernen (müs- 
sen), interessant ist. 

Das Programm ist für Diskettenbetrieb ausgelegt. 
Falls Sie dies wünschen, müssen Sie es für den Tape- 
Betrieb entsprechend anpassen. 


Voll menügesteuert 


Dieses Programm ist voll menügesteuert und bietet 
den besonderen Vorzug, daß Sie beliebig viele Spra- 
chen damit lernen können. Und je Fremdsprache 
können Sie bis zu eintausend Vokabeln eingeben. 
Das dürfte ja für den Anfang erst einmal reichen. 
Im Menü haben Sie folgende Optionen: 


1. Vokabeln eingeben 
Hier wird dem Benutzer die Möglichkeit gegeben, 
dem CPC Vokabeln beizubringen. 


2. Vokabeln ändern 

Falls Sie unter Punkt 1 ein Wort falsch eingegeben 
haben, besteht die Möglichkeit, es zu ändern oder so- 
gar zu löschen. 


3. Vokabeln abfragen 

Hier wird geprüft, ob der „Schüler“ seine Lektion gut 
gelernt hat oder ob noch Lücken vorhanden Sind. 
Achtung: Gewußte Wörter werden aus dem Speicher 
gelöscht. Also zuerst die unter Punkt 1 eingegebenen 
Vokabeln sichern, dann abfragen! 


4. Vokabeln sichern 

Nach der Eingabe der Vokabeln werden dann unter 
diesem Menüpunkt die Daten abgespeichert. Wenn 
Sie verschiedene Sprachen lernen wollen, speichern 
Sie die Daten zum Beispiel ab mit Engll, Engl2, 
Franzl, Franz2, Spanl, Span2, usw. 


5. Vokabeln laden 


Die gespeicherten Vokabeln werden in den CPC 
eingelesen. 


6. Verschiedenes 
Hier kommen Sie in ein Untermenü. 


6.1 Vokabeln ansehen: 
Die Vokabeln, die der Computer im Bauch hat, wer- 
den hier auf den Bildschirm geholt. 


6.2 Vokabeln drucken: 
Alle Vokabeln werden ausgedruckt 


6.3 Katalog 
Der Disketteninhalt wird angezeigt. 


6.4 Datei löschen 
Eine Datei kann gelöscht werden. 


6.5 Datei umbenennen 
Eine beliebige Datei kann umbenannt werden. 


6.6 Andere Sprache wählen: 
Die unter Menüpunkt ] gewählte Sprache kann ver- 
ändert werden. 


6.7 Hauptmenü 

Rückkehr ins Hauptmenü 

Noch ein Hinweis: Das Programm definiert einige 
Tasten um: 

Klammeraffe + CTRL = Klammeraffe 
Klammeraffe + Shift = ! 

Klammeraffe allein = ß 

Eckige Klammer auf allein =ä 

Eckige Klammer auf mit Shift = Ä 

Eckige Klammer zu mit Shift = Ö 

Ecke Klammer zu allein = ö 

Backslash allein = ü 

Backslash mit Shift = Ü 

Außerdem ist noch ein französischer Zeichensatz 
vorhanden. Dieser befindet sich auf dem Ziffernblock. 
Bitte ausprobieren! (JE) 
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EL oc = = = 2 = 2 2 2 2 2 2 2 22 2 2 2 2 2 2 212 2 2 2.2 2722277 
20 ’* BEST WORDS ( VOKABELTRAINER) * 


30 ’# VON #* 
40 ’* PETER OSTER * 
so ’# FUER ®* 
60 ’* SCHNEIDER AKTIV #* 
70 '# CPC 464/664/6128 # 


BO HHRERRER EEE IE IE EIER 
130 ’ 

140 CALL &BB00 

150 KEY DEF 17,1,123,91:KEY DEF 19, 
1,124,92:KEY DEF 22,1,125,93:KEY DE 
F 26,1,126, 124,64 

160 KEY 128, +CHR$( 128) :KEY 129, +CHR 
$(7129) :KEY 130, +CHA$( 130) :KEY 131, + 
CHRA$C 131) 

170 KEY 132, +CHRA$( 132) :KEY 133, +CHRA 
$( 133) :KEY 134, +CHA$( 134) :KEY 135, + 
CHRA$( 135) 

180 KEY 136, +CHA$( 136) :KEY 137, +CHRA 
$( 137) :KEY 138, +CHR$( 138) :KEY 139, + 
CHA$( 139) :KEY 140, +CHA$( 140) 

190 SYMBOL AFTER 90 

200 SYMBOL 91,102,24,60, 102, 126,102 
‚102,0:5YMBOL 92, 198,56, 108, 198,198 
‚108,56,0:65YMBOL 93,102,0,102, 102,1 
02,102,60,0 

210 SYMBOL 123, 108,0, 120,12,124,204 
‚118,0:SYMBOL 124, 102,0,60, 102,102, 
102,60,0:5YMBOL 125,102,0,102,102,1 
02,102,62,0:SYMBOL 126,60, 102, 102,1 
08, 102,102, 108,96 

220 SYMBOL 128,0,60, 102,96, 102,60,8 
‚24:5YMBOL 129, 12,24,0,102, 102,102, 
62,0:5YMBOL 130,48,24,60,102,102,10 
2,60,0 

230 SYMBOL 131,24, 102,0,56,24,24,60 
‚0:SYMBOL 132,12,24,60, 102, 126, 96,6 
0,0:5YMBOL 133,48,24,60,102,126,96, 
60,0 

240 SYMBOL 134,24, 102,60, 102, 126,96 
‚60,0:5YMBOL 135, 12,24,120,12, 124,2 
04,118,0:5YMBOL 136,96,48, 120, 12,12 
4,204,118,0 

250 SYMBOL 137,24, 102,120, 12,124,20 
4,118,0:5YMBOL 138,48,24,0,102, 102, 
102,62,0:5YMBOL 139,24,102,60, 102,1 
02,102,60,0:5YMBOL 140,24,102,0,102 
‚102,102,62,0 

260 SYMBOL 163,0,0,0,0,0,24,24,48 
270 CLS:RUN "BW.BAS" 


SERZIEIFIENE 


KANTE AR ERAINZEN ES 


10 Prater ES SESESESESESESESESFSESESE 
20 °# BEST WORDS (HAUPTPROGRAMM) * 


30 '# VON # 
40 °’%* PETER OSTER # 
so ’# FUER * 
60 ’#* SCHNEIDER AKTIV * 
0 ’# CPC 464/664/6128 * 
80 72 HRRRRRRHREIHRIHIRIIHIIHH HIHI III 
130 

140 INK 0, 12:INK 1,0:BORDER 12:PAPE 


A 0O:PEN 1::] DISC:disc=1:G0TO 160 
160 GOSUB 1640:DIM d$( 1000) ,fs$( 100 
0) ,me$( 7) ,dn$( 100) 

170 w=1:G05UB 1830:WINDOW #0,7,62,5 
‚ai 

180 me$( 1)="Vokabeln eingeben" :PRIN 
T:PRINT:PAINT TAB( 18) me$( 1) 
190 me$( 2) ="Vokabeln {ndern"” 
T:PRINT TAB( 18) me$( 2) 

200 me$( 3) ="Vokabeln abfragen" :PRIN 
T:PAINT TAB( 18) me$( 3) 


:PRIN 


210 me$(4)="Vokabeln sichern" :PAIN 
T:PAINT TAB( 18) me$( 4) 
220 me$(5)="Vokabeln laden” :PRIN 
T:PARINT TAB( 18) me$(5) 
230 me$( 6) ="Verschiedenes" :PRIN 
T:PRINT TAB( 18) me$(6) 
240 me$( 7) ="Ende"” :PRIN 


T:PRINT TAB( 18) me$(7) 

250 LOCATE 18, 1+w#2:PRINT CHA$( 24); 
me$( w) ;CHA$( 24) 

260 IF INKEY(2)=0 THEN IF w=7 THEN 

270 ELSE LOCATE 18, 1+w*2:PRINT me$( 
w) :w=w+1:LOCATE 18, 1+w#2:PRINT CHA$ 
(24) ;me$( w) ;CHA$( 24) :FOR p= 

ı TO 75:NEXT 

270 IF INKEY(O)=-0O THEN IF w=1 THEN 

280 ELSE LOCATE 18, 1+w#2:PAINT me$( 
w) :zw=w-1:LOCATE 18, 1+w#2:PRINT CHR$ 
(24) ;me$( w) ;CHR$( 24) :FOR p= 

I TO 75:NEXT 

280 IF INKEY(9)-O OR INKEY( 18)-0O TH 
EN. 300 

290. GOTO 260 

300 CLS:0N w GOTO 310,450,730, 1170, 
1260, 1410, 1910 

310 REM ---Vokabeln eingeben--- 

320 GOSUB 1860 

330 MOVE 125,347:TAG:PRINT " Voka 
beln eingeben ">: TAGOFF :GOSUB 162 
0 

340 IF sp<>1 THEN LOCATE 2,2:PRINT” 
Sprache: "; :WINDOW#1,19,64,7,7:INPU 
T#1,"",sp$:IF sp$="" THEN 340 ELSE 

sp=1 

350 CLS:G0OS&SUB 2020:FOR ve=az+1 TO 1 
000 

360 PRINT ve;CHR$(8) ;CHR$( 246) ; :INP 
UT ”"",fs$(ve):IF fs$[(ve)="" THEN LO 
CATE POS( #0) ,VPOS( #0) -1:G0TO 360 
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370 IF fs$(ve)="1" THEN 440 

380 WINDOW SWAP 0,1 

390 PRINT ve;CHR$(8B) ;CHA$( 246) ; : INP 
UT "",d$(ve) :IF d$(ve)="" THEN LOCA 
TE POS( #0) ,VPOS( #0) -1:G0T0 390 
A400 IF d$(ve) ="1" THEN 440 

A100 az=ve 

420 WINDOW EWAP 0,1 

430 NEXT 

440 GOTO 170 

450 REM --- Vokabeln aendern--- 
460 wo=0:CL5:G05UB 1860 

470 MOVE 125,347:TAG:PRINT “ 
abeln {ndern "=: TAGOFF 

450 IF az=D THEN GOSUB 1970:G0T0 17 
[8] 

4930 IF LOWER&( sp$) -"latein" THEN ad 
$="lateinisch":6G0TO 510 

500 ad$=LOWER$( sp$) 

510 LOCATE 2,2:PRINT "Soll ich ein 
deutsches oder ein ";CHRA$( 24) ;ad$; " 
es"”;CHA$( 24) ;” Wort":LOCATE 2,3:PRI 
NT "finden ?":fi=2 

520 IF INKEY( 1)=D THEN LOCATE 15,2: 
PRINT"deutsches":LOCATE 34,2:PRINT 
CHR$( 24) ;ad$; "es" ;CHA$( 24) : Ffi=2 


Vok 


530 IF INKEY(8)=0 THEN LOCATE 34,2: 
PRINT ad$;"es”:LOCATE 15,2:PRINT CH 

A$(24) ;"deutsches" ;CHR$( 24) :fi=1 
540 IF INKEY(9)=-1 AND INKEY( 18) =-1 
THEN 520 

550 GOSUB 1620:L0OCATE 2,4:PRINT " G 
ib den(die) Anfangsbuchstaben des z 
u verbessernden Wortes ein.(<EN 
TER>:Menu) -->":WINDOW #0,3 

9,64,11,11:INPUT "",an$:IF an$="" T 
HEN 170 ELSE GOSUB 1870 

560 FOR su=1 TO az 

570 CLS:IF fi=1 THEN 590 

580 IF LEFT$CfFs$(l su) ‚LEN(an$))=an$ 
THEN 600 ELSE 650 

590 IF LEFT$Cd$Csu) ‚,LEN(Can$)) <>an$ 

THEN 650 


600 PRINT fs$( su) :PRINT d$( su) :LOCA 
TE 2,6:PRINT "Ist das Wort "”";CHR$(2 
4);"richtig"”;CHR$(24);”" oder falsch 
geschrieben ?":rf=2 

610 IF INKEY( 1)=0 THEN LOCATE 15,6: 
PRINT "richtig":LOCATE 28,6:PRINT C 
HR$( 24) ;"Falsch" ;CHR$( 24) :rf=1 

620 IF INKEY(8)=0O THEN LOCATE 28,6: 
PARINT"falsch":LOCATE 15,6:PARINT CHR 
$( 24) ;"richtig";CHRA$( 24) :rf=2 

630 IF INKEY(9)=-0O OR INKEY( 18)=0O TH 
EN wo=1:IF rf=1 THEN 680 ELSE 650 


640 GOTOD 610 
650 NEXT 
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660 IF wo=1 THEN CLS:LOCATE 2,2:PRI 
NT "Ich kann kein weiteres Wort fin 
den, das so beginnt.":wo=D ELSE LOC 
ATE 2,2:PRINT "Ich habe kei 

n Wort gefunden, das so beginnt.” 
670 FOR p=1 TO 2000:NEXT:GOTO 170 


680 GOSUB 1620:L0OCATE 2,6:PRINT "” W 
ie hei’t es richtig ? (";CHR$( 24) ;" 


t";CHR$( 24) ;":Vokabel herausnehmen) 


690 LOCATE 2,8:PRINT "-";sp$; : INPUT 
" :",fa$:IF fa$="" THEN LOCATE LEN 

(sp$) +5,8:PRINT fs$(su) ELSE IF fa$ 
="1" THEN 720 ELSE fs$(su)> 

fa$ 

700 LOCATE 2,9:INPUT "-Deutsch :",d 
a$:IF da$="" THEN LOCATE 12,9:PRINT 
d$( su) :FOR p=1 TO 2000:NEXT ELSE I 

F da$="!" THEN 720 ELSE d$( 

su) =da$ 

710 GOTO 170 

720 FOR ra=su TO az-1:fs$(ra)=fs$(r 

a+1) :d$( ra) =d$( ra+1) :NEXT:az=az-1:G 

DOTO 170 

730 REM ---Vokabeln abfragen--- 

740 ng=0:nz=az:GO5SUB 1860 

750 MOVE 125,347:TAG:PRINT " 

beln abfragen ">: TAGOFF 

760 IF az=O THEN GOSUB 1970:G0T0 17 

[8] 

770 


Voka 


IF sp$="Latein" OR sp$="latein" 
OR sp$="LATEIN” THEN ad$="lateinis 
ch”:G0T0 790 

780 ad$=LOWER$( sp$) 

790 LOCATE 2,5:PRINT "Soll ich Sie 
nach ";ad$;"en oder nach":PRINT "” " 
;CHR$( 2A) ;"deutschen"”;CHA$L 24) ;" WI 
rtern fragen ?":ab=2 

800 IF INKEY( 1)=0 OR INKEY(O)=O THE 
N LOCATE 2,6:PRINT "deutschen" :LOCA 
TE 20,5:PRINT CHR$( 24) ;ad$; "en"; CHR 
$( 24) :ab=1 

810 IF INKEY(8)=D OR INKEY(2)=O THE 
N LOCATE 20,5:PRINT ad$; "en" :LOCATE 
2,6:PRINT CHR$( 24) ;"deutschen" ; CHR 
$[ 24) :ab=2 

820 IF INKEY(9)=DO OR INKEY( 18)=0 TH 
EN CLS:GOTO 840 

830 GOTO 800 

840 LOCATE 23, 17:PRINT "M:Menu" 

850 MOVE 151,111:DRAW 409, 111:DRAW 

409,288:DRAW 151,288:DRAW 151,112 
860 MOVER 0, 138:DRAWR 258,0:MOVER O0 
‚-5:DRAWR -258,0:MOVER 0,-2:DRAWR 2 
58,0 

870 MOVE 168,110:FOR ze=1 TO 6:DRAW 
RAR 255,0:MOVER 0,-1:DRAWA -255,0:MOV 

ER 0,-1:NEXT 

880 MOVE 410,272:FOR ze=1 TO 7:DRAW 
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A 0,-160:MOVER 1,0:DRAWR 0, 160:MOVE 
A 1,0:NEXT 

890 WINDOW #0,21,50,11,18 

900 WHILE az>O 

910 WINDOW #1,11,64,20,20:PRINT #1, 


CHR$( 24) ;"<SPACE>:]bersetzung !"”;CH 
A$(24) ;" G:Gewu’t N:nicht gewu 
en 


920 m=INT( RND( 1) #az+1) :IF m=O THEN 

920 

930 IF ab=1 THEN vf$=fs$(m) :vd$=d$( 

m) ELSE vf$=d$(m) :vd$=fFs$(m) 

940 CLS:MOVE 160,277:TAG:PRINT " 

";:MOVE 

160,277:TAG:PRINT LEFT$( vd$,30) ;:TA 

GOFF:IF LEN(vd$) >30 THEN PR 

INT RIGHT$( vd$,LEN( vd$) -30) 

950 IF INKEY(47)-0 THEN PRINT#1,"<5 

PACE>:]bersetzung ! "=CHR$L 24) ;" 

G:Gewu”t";CHR$( 24) ;" ";CHR$( 24) ;" 

N:nicht gewu”t";CHR$( 24) :G0 

TO 980 

960 IF INKEY(38)=0 THEN 170 

970 G0TO 950 

980 CLS:MOVE 160,277:TAG:PRINT" 

"::MOVE 1 

60,277:TAG:PRINT LEFT$LvF$,30) ;:TAG 

OFF:IF LEN(vf$)>30 THEN PRI 

NT RIGHT$Cvf$,LEN(vf$) -30) 

990 IF INKEY(52)>=0 THEN 1030 

1000 IF INKEY(46)>=O THEN ng=ng+1:6G 

OTO 1040 

1010 IF INKEY(38)=0O THEN 170 

1020 GOTO 990 

1030 FOR n=m TO az-1:d$(n) =d$(n+1): 
fs$(n)=fs$(n+1) :NEXT:az=az-1 
1040 WEND 

1050 CLS:MOVE 160,277:TAG:PRINT 
LE VOKABELN SIND ABGEFRAGT. 

FF:FOR p=1 TO 1000:NEXT 
1060 WINDOW #0,9,64,6,22 
1070 CLS:LOCATE 2,3:PRINT "Hier ist 
Dein Ergebnis:":FOR ns=1 TO 6:0N n 
s GOSUB 1100, 1110,1120, 1130, 1140,11 
50:IF ng*nd<=nz THEN 1080 E 

LSE NEXT 

1080 LOCATE 2,5:PRINT ng$:LOCATE 2, 

8:PRINT"<SPACE>" 

1090 IF INKEY(47)=0O THEN 170 ELSE 1 

090 

1100 nd=7:ng$="Absolute Spitze.Weit 
er so !!!":RETURN 

1110 nd=5:ng$="Du hast die Vokabeln 
gut gelernt.Mach’ weiter so.” :RETU 

RN 

1120 nd=3:ng$=" Noch nicht perfekt. 
Guck’ Dir die Vokabeln noch ’mal an 
. "RETURN 

1130 nd=2:ng$=" Na ja.Eigentlich so 
Iltest Du besser sein.Schau Dir die 


"AL 
";:TAGO 


Wirter noch einmal gut an."”:RETUR 
N 


1140 nd=1:ng$=" Also, toll warst Du 
nicht gerade.Du mu’t die WIrter 
noch einmal lernen.Du wirst aber 

bestimmt noch besser."”:RETU 

AN 

1150 nd=0:ng$=" Du hast die Vokabel 

n nicht gelernt.Gib’ aber nicht auf 

- Keep trying !!!":RETURN 

1160 REM ---Vokabeln sichern--- 

1170 GOSUB 1860 

1180 MOVE 125,347:TAG:PRINT " 

abeln sichern "> :TAGOFF 

1190 IF az=0 THEN GOSUB 1970:G0T0 1 

70 

1200 LOCATE 2,2:IF disc=D THEN PRIN 

T "Cassette einlegen und <REC> & <P 

LAY> dr}cken !"” ELSE PRINT "Diskett 

e einlegen !" 

1210 GOSUB 1620:LOCATE 2,4:PRINT "D 

ateiname (<ENTER>:Menu) ?”; :WINDOW 

#0,37,64,9,9:INPUT "",dn$ 

1220 IF dn$="" THEN 170 

1230 GOSUB 1870:LOCATE 2,6:PRINT"B 

ITTE WAR TE N" 

1240 OPENOUT CHR$( 33) +dn$: PRINT #9, 

sp$:PRINT #9,az:FOR g=1 TO az:PRINT 

#9,d$(g) :PRINT #9,fs$(g) :NEXT:CLOS 

EOUT:GOTO 170 


Vok 


1250 REM ---Vokabeln laden--- 
1260 GOSUB 1860 
1270 MOVE 125,347:TAG:PRINT " Vo 


kabeln laden ";:TAGOFF 

1280 da=1:LOCATE 2,2:IF disc=O THEN 
PRINT "Cassette einlegen und <PLAY 

> dr}cken !" ELSE PRINT "Diskette e 
inlegen !" 

1290 LOCATE 2,4:PRINT "Gib die Date 
inamen der zu ladenden Dateien an. 

(<ENTER>:Fertig) ":hi=O 


1300 GOSUB 1620:FOR la=-1 TO 100:hi- 
hi+9 

1310 LOCATE 2,6+hi:PRINT la;":";:WI 
NDOW #1,15,25,11+hi, 11+hi: INPUT#1," 
"‚dn$( 1a) 

1320 IF dn$( 1)="" THEN 170 


1330 IF dn$( la)-=-"" THEN la=la-1:G0T 
D 1360 


1340 IF hi=11 THEN LOCATE 2,7:FOR h 


i=1 TO 11:PRINT "” Bir 
NEXT: hi=O0 

1350 NEXT 

1360 GOSUB 1870:CL5:LOCATE 2,6:PRIN 
T” BITTE WARTE 
N” 


1370 FOR nl=1 TO la:ax=az+1:0PENIN 
CHR$( 33) +dn$( nl) :INPUT #9, sp$: INPUT 
#9,az 
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1350 sp-l:az-ax+taz-1:IF az>1000 THE 

N az=1000:G0T0O 1400 

1390 FOR g-ax TO az:INPUT #9,d$(g), 

fs$(g) :NEXT:CLOSEIN:NEXT:GOTO 170 
1400 CLS:LOCATE 2,2:PRINT "Ich kann 
keine weiteren Vokabeln verarbeite 

n.":FOR p=1 TO 2000:NEXT:GOTO 170 


1410 REM ---Verschiedenes--- 

1420 GOSUB 1860:MOVE 125,347:TAG:PR 
INT ” Verschiedenes ”;:TAGO 
FF 

1430 IF wv=D OR wv=7 THEN wv=1 

1440 me$( 1) ="Vokabeln ansehen" :P 
RINT:PRINT TAB( 18) me$( 1) 

1450 me$( 2) ="Vokabeln drucken" :P 


RINT:PRINT TAB( 18) me$(2) 
1460 me$( 3) -"Katalog" :P 


RINT:PRINT TAB( 18) me$( 3) 
1470 me$(4)="Datei 1l]|schen" :P 
RINT:PRINT TAB( 18) me$(4) 
1480 me$(5) ="Datei umbenennen” :P 
AINT:PRINT TAB( 18) me$(5) 


1490 me$( 6) ="Andere Sprache w{hlen" 
:PRINT:PRINT TAB( 18) me$(6) 
1500 me$( 7) ="Hauptmenu"” 
ARINT:PARINT TAB( 18) me$( 7) 
1510 LOCATE 18,wv#*2:PRINT CHR$( 24); 
me$( wv) ;CHR$( 24) 

1520 IF INKEY(2)=O THEN IF wv=7 THE 
N 1530 ELSE LOCATE 18,wv#2:PRINT me 
$lwv) :wv=wv+1:LOCATE 18,wv#2:PRINT 
CHR$( 24) ;me$( wv) ;CHR$(24) :F 

OR p=1 TO 75:NEXT 

1530 IF INKEY(0O)=0O THEN IF wv=1 THE 
N 1550 ELSE LOCATE 18,wv#2:PRINT me 
$lwv) :zwv=wv-1:LOCATE 18,wv#2:PRINT 
CHR$( 24) ;me$( wv) ;CHR$( 24) :F 

OR p=1 TO 75:NEXT 

1540 IF INKEY(9)=0O OR INKEY(18)=0 T 
HEN 1560 

1550 GOTO 1520 

1560 ON wv GOTO 1570, 1990, 2080, 1700 
‚1760, 1660, 170 

1570 IF az=O THEN CLS:605SUB 1970:CL 
5:GOTO 1440 

1580 MODE 2:FOR g=1 TO az:PRINT g;" 
. ";fs$(lg) ;TAB(40)” ";CHA$(243) ;" " 
;d$(g) :NEXT:PRINT "<SPACE>" 

1590 IF INKEY(47)<O THEN 1590 

1600 GOSUB 1830:6G0T0O 1410 

1610 REM 
1620 
1630 
1640 


:Pp 


FOR er=1 TO 30:er$=INKEY$:NEXT 

RETURN 

KEY DEF 39,1,163,60,44:RETURN 
1650 REM --- Andere Sprache --- 
1660 CLS:GOSUB 1890:MOVE 321,336:TA 

G:PRINT " Andere Sprache "= :TAG 
OFF 


1670 GOSUB 1620:LOCATE 4,3:PRINT "S 
prache (<ENTER>:Menu) ":INPUT #3,"”"” 
‚sn$:IF sn$="" THEN 1680 ELSE sp$=s 


n$:sp=1 
1680 GOSUB 1830:G0TO 1420 
1690 REM --- Datei loeschen --—- 


1700 IF disc=O THEN 1730 

1710 CLS:GOSUB 1890:MOVE 321,336:TA 
G:PRINT " Datei 1| schen "= :TAG 
OFF 

1720 GOSUB 1620:L0CATE 4,3:PRINT"Da 
teiname ( <ENTER> :Menu) "” : INPUT #3,"" 
‚10$:IF l1o$="" THEN 1740 

1730 IERA,@10$ 

1740 GOSUB 1830:G60T0 1420 

1750 REM --- Datei umbenennen --- 


1760 IF disc=O THEN 1810 

1770 CLS:GOSUB 1890:MOVE 321,336:TA 
G:PRINT " Dateien umbenennen ";:TAG 
OFF 

1780 GOSUB 1620:L0OCATE 4,2:PRINT "< 
ENTER>:Menu":LOCATE 4,3:PRINT "Wie 

heit die Datei jetzt ?":INPUT #1," 
"‚da$:IF da$="" THEN 1810 

1790 LOCATE 4,4:PRINT "Wie soll sie 
ab jetzt hei’en ?":INPUT #2,"",db$ 
:IF db$="" THEN 1810 

1800 |REN,@db$, @da$ 

1810 GOSUB 1830:60T0 1420 

1820 REM --- 1.Karte --- 

1830 MODE 2:LOCATE 25,1:PRINT "B e 


s t Wo TL1r d s":LOCATE 23,2:PRINT 
"------- 4 ":REM 23 6t 
}ck 


1840 MOVE 47,55:DRAW 496,55:DRAW 49 
6,336:DRAW 111,336:DRAW 111,361:DRA 
W47,361:DRAW 47,55:LOCATE 9,4:PRIN 
T"Menu" :RETURN 

1850 REM --- 2.Karte --- 

1860 MOVE 63,55:DRAW 496,55,0:DRAW 
496,327:MOVE 63,47:DRAW 512,47,1:DR 
AW 512,328:DRAW 309, 328:DRAW 309,35 
3:DRAW 124,353:DRAW 124,328 

:DRAW 63, 328:DRAW 63,47 

1870 WINDOW #0,9,64,6,22:RETURN 
1880 REM --- 3.Karte --- 

1890 MOVE 79,47:DRAW 512,47,0:DRAW 
512,320:MOVE 79,39:DRAW 528,39,1:DR 
AW 528,320:DRAW 481,320:DRAW 481,34 
5:DRAW 320,345:DRAW 320,320 

:DRAW 79,320:DRAW 79,39:WINDOW #1,3 
9,66,8,8:WINDOW #2,42,66,9,9:WINDOW 
#3,36,66,8,8:RETURN 


1900 REM --- Ende --- 
1910 GOSUB 1860:MOVE 125,347:TAG:PR 
INT" Ende ">: TAGOF 


F:LOCATE 2,2:PRINT "Sind Sie sicher 
(ja oder ";CHR$( 24) ;"nein" 
;CHR$C24) ;") 7" 
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| aktiv) 


1920 IF INKEY(8)-0O THEN LOCATE 277,2 
:PARINT "nein":LOCATE 19,2:PRINT CHR 
$(24) ;" ja” ; CHR$( 24) :en=1 

1930 IF INKEY( 1)=0 THEN LODCATE 19,2 
:PRINT "3ja”:LOCATE 27,2:PRINT CHR$( 
24) ;"nein"” ;CHRA$( 24) :en=2 

1940 IF INKEY(9)=0 OR INKEY( 18)-0 T 
HEN IF en=1 THEN GOSUB 1620:MODE 2: 
END ELSE 170 

1950 GOTO 1920 

1960 REM -"Keine Vokabeln im Speich 
er"- 

1970 LOCATE 2,2:PRINT "ES SIND KEIN 
E VOKABELN IM SPEICHER !":FOR p=1 T 
D 4000:NEXT: RETURN 

1980 REM ---Druckerausgabe--- 

1990 WIDTH 80:FOR g=1 TO az:PRINT #4 


B,g;". ";fs$(g) ;TAB(37)" hei’t ";d 

$(g) :NEXT 

2000 GOTO 1510 

2010 REM --- Bildschirmaufbereitung 
bei "Vokabeln eingeben"”--- 


2020 CLS:MOVE 283,320:DRAW 283,64:M 
DVER 1,0:DRAWR 0,256:MOVER 1,0:DRAW 
R 0,-256 

2030 LOCATE 13-LEN( sp$) /2,1:PRINT s 
p$;":":LOCATE 36, 1:PRINT"Deutsch:": 
LOCATE 25,17:PRINT CHR$( 24) ;" 1"; CHR 
$( 24) ;":Menu" 

2040 WINDOW #0,9,35,8,21 

2050 WINDOW #1,37,64,8,21 

2060 RETURN 

2070 REM --- Katalog --- 

2080 GOSUB 1620:MODE 2:IF disc=O TH 
EN PRINT "Kassette einlegen und <SP 
ACE> dr}cken !!!" ELSE PRINT "Diske 
tte einlegen und <SPACE> dr 

}cken !!!" 

2090 IF INKEY(47)<O THEN 2090 

2100 MODE 2:CAT:PRINT ” <SPACE>" 
2110 IF INKEY(47)<O THEN 2110 

2120 GOSUB 1830:G0T0O 1420 


LISTING 


WALL 
RUNNER 


„Wall Runner“ ist ein aktionsreiches Spiel für die 
CPCs, welches Ihnen zusätzlich die Möglichkeit gibt, 
Ihr eigenes Spielfeld zu konstruieren. 

Nachdem Sie mittels Tastendruck das Titelbild zum 
Verschwinden gebracht haben, erscheint die Haupt- 
auswahlliste, aus der Sie mittels Joystick wählen 
können. Dabei handelt es sich um folgende Optionen: 
— Level laden 

— Level editieren 

— Spielen 

— Programm beenden 

Insgesamt können 10 verschiedene Levels definiert 
werden. Sie können dazu jedoch auch jedes Spielfeld 
einzeln aus der angelegten Datei laden. Dazu mehr 
beim Stichwort „Editieren“. 

Beim Laden der Levels können Sie zu jeder Nummer 
einen Dateinamen eingeben. Wenn Sie statt dessen 
nur Enter betätigen oder in der angegebenen Datei 
kein Display unter dieser Nummer enthalten ist, er- 
scheint die Meldung “Level x ist undefined“, sonst 
sehen Sie “Level x is loaded“. 
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Da Sie zu Beginn nur einen Level definiert haben, 
werden Sie wohl zunächst den Punkt “Level editie- 
ren‘ wählen. Hier suchen Sie — wieder ganz bequem 
per Joystick — zuerst die gewünschte Nummer aus. 
Danach erscheint das Spielfeld in der linken, eine 
Auswahlliste in der rechten Hälfte des Bildschirmes. 
Dort wählen Sie ein Symbol aus: entweder einen nor- 
malen Ziegel, einen Energieblock, ein giftgrünes 
Mauergespenst, unseren strahlenden Helden Jonny 
u ein Leerzeichen (zum Löschen), das E oder 
as X. 
Nachdem Sie Ihre Auswahl getroffen haben, lenken 
Sie mit dem Joystick ein Fragezeichen durch das 
Feld. Jedesmal, wenn Sie den Feuerknopf drücken, 
wird ein Symbol plaziert. Mit Enter gelangen Sie in 
die vorherige Auswahl zurück. 
Besonderheiten gibt es bei den Mauergeistern. Wenn 
Sie eine solche Figur setzen, werden Sie gefragt: 
NUMBER OF ENEMY? Über den bereits plazierten 


Bitte lesen Sie weiter auf Seite 62 
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HALL RUNNER 


LISTING 


108 ee ee 
118 ’* WALLRUNNER x 
128 '* VON * 
138 ’* ALWIN ERTL * 
148 °'* FUER * 
158 ’* SCHNEIDER AKTIV ” 
168 ’* CPÜ 464/664/6128 * 
170. HHRRISEISHIIHHIHRIHIOSHHHISEIPES EEE 
238 

248 ' HAUPTPROGRAMM 

258 

268 GOSUB 329:G0SUB 420 

278 GUOSUB A478:IF wahl<4 THEN ON wah 


1 GOSUB 694,728, 13398:G0T10 27% 
288 PEN 1:MUDE 2:END 
298 ’ 
320 
310 
328 ’Initialisierung 
338 INK 8,8:PAPER 8:INK 1,26:INK 2, 
21:INK 3,6:BORDER 8:MODE 1 
348 DIM bild$( 25,18) ,gpx(3) ,gpy(3), 
epxs(3,18) ,gpys(3,18) ,sxs( 18) ,‚sys( 1 
#) ‚steine( 18) ,1d( 18) ‚nenu$( 4) 
358 FOR i=2 TO 19:1d(i)=B:FOR j=1 T 
0 25:bild$( j,i)>= 
"NEXT 5j,i 
368 FOR i=1 TO 25:READ bild$(i,1):N 
EXT i:1d( 1J=-1:READ sxs(1),sys( 1) :F 
OR i=1 TU 3:READ gpxs(i,1),gpysli,i 
) :NEXT i:READ steine( 1) 
378 SYMBOL AFTER ASC( "a") -1:0PENOUT 
"dummy"” :MEMORY HIMEN-1:CLUSEOUT:SYM 
BOL ASC("a"),&EFF,6C3,6A5,699,699,6A 
5,603,&FF:SYMBOL ASC("b") ,&FF,6EB1,6& 
BD,&BD,&BD,&6BD,681,&FF 
388 SYMBOL ASUC(["c"”) ,&E3C,&67E,6DB,&FF 
‚GE7,EDB,EFF,&EAS:SYMBOL ASC("d"”),68 
1,6FF,EDB,6FF ,6DB,&E7,67E ,&30 
398 SYMBUL 248,&3F ,&3F ,660,6&7C,&FC, 
EC0,6C8,6C90:5YMBOL 241,63E,63F,&73, 
E7E,EFC,EF®,EDC,E3E:SYMBOL 242,63F, 
E3F ,670,69E ,&67E,EFE ‚ECB,&FC 
400 SYMBUL 243,&63F ,E3F ,67,618,618,6& 
EB,&FC,&EFC:SYMBUÜL 244,6C,60,610,618 
‚518,9,638,&38 
aı0 nenust 1j- "LOAD LEVELS":menu$( 2) 
="DEFINE LEVELS":menu$( 3) ="PLAY THE 
GAME": BenusLe)n "EXIT FRUM PRUGRAM" 
:levdef$="abcd EX” :RETURN 
42% "Titelbild 
430 MODE 1:PEN 3:LOCATE 3,3:PRINI 5 
TRING$L 18, "a”) :LOCATE 3,12:PRINT ST 
RING$( 18, "a") :FOR i=A4 TO 6:LUOCATE 3 
‚i:PRINT”a a a”:NEXT i:FOR i=7 
TO 9:LOCATE 3,i1:PHRINT"a aaa a”: 
NEXT i:FOR i= 10 13 11:LOCATE 3,i:PR 
INT"a"; 5PACE$(8) ;"a":NEXT i 
448 LOCATE 7 ,8:PAINT"b":PRINT CHR$( 
22) ;CHR$L 1); :PEN 2:LOCATE 3,3:PRINT 


UNTERPROGRAMME 


"sce"”:PEN 1:L0OCATE 12,3:PRINT"”d"”;CH 

R$( 22) ;CHR$(B); 

458 PEN 1:LOCATE 21,5:PRINT"WALL":L 
OCATE 28, 7:PRINT"RUNNER":PEN 3:L0CA 
TE 15, 12:PRINT"AMSTRAD CPC 464/664/ 
6128":PEN 2:LOCATE 4,17:PRINT"(C) 1 


986 BY _ALWIN ERTL"”:PEN _3:LOCATE 4 
‚23:PRINT"PRESS ANY KEY TO START" 


468 WHILE INKEY$<>"":WEND:WHILE INK 

EY$="":WEND: RETURN 

478 ’Hauptmenue 

4aB8B MODE 1:PEN 1:LOCATE 15,2:PRINT"” 

WALL RUNNER":LOCATE 4,23:PRINT"PLEA 

SE SELEUT USING JOYSTICK" 

498 PEN 3:FOR i=1 TO 4:LOCATE 4,4+3 

*=1:PRINT menu$( i) :NEXT i:wahl=1 

Su8B FOR i=1 TO 18:FOR j=1 TU 25:MID 

$lbild$( j,i), 1) =SLOWER$(bild$( j,i)): 

NEXT j,i 

S18 LUOCATE 4,4+3*wahl:PEN 2: 

enu$( wahl) 

528 FOR i=1 TO 58:NEXT i 

538 LOCATE 4,4+3*wahl:PEN 3:PRINT m 

enu$( wahl) 

548 FOR i=1 TO 59:NEXT i 

SS58 j=J0Y(8):IF j AND 16 THEN 5980 

56% IF j AND 1 THEN wahl=wahl-1:IF 

wahl<1 THEN wahl=4 

578 IF j AND 2 THEN wahl=wahl+1:IF 

wahl>4 THEN wahl=1 

588 GOTO 518 

598 RETURN 

698 ’Levels laden 

618 MODE 1:PEN 1:LOCATE 3,2:PRINT"”W 

ALL RUNNER - GAME LOADER"”:LOCATE 

3,19:PRINT"ENTER FILE NAMES UP TO 
UCHARAUTERS":LOCATE 3,21:PRINT"PRES 

5 IF LEVEL 15 UNDEFINED" 

628 PEN 3:LOCATE 26, 19:PRINT"B":LOC 

ATE 9,21:PRINT"”ENTER" 

638 PEN 2:FOR i=1 TO 18:LOCATE 3,4+ 
i:PRINT"LOAD LEVEL FROM FILE”:NF 

XT i 

648 PEN 3:FOR i=1 TU 18:L0CATE 14,4 
+i1:PRINT USING”##”;i:NEXT i 

658 FOR i=1 TU 18:L0OCATE 27,4+i:PEN 
3: INPUT"”",dat$:dat$=UPPER$( dat$) +" 
.LEV":LOCATE 297,4+i1:PRINT LEFT$( dat 
$, INSTR(dat$,"."”)-1) 

668 PEN 2:IF dat$=".LEV" THEN 1d(i) 
=B:LOCATE 3,4+i1:PRINT SPACE$(4) :LOC 

ATE 17,4+i1:PRINT"IS UNDEHINED."”;SPA 

CE$( 19) :G60T0 718 

678 OPENIN dat$:IF 
TO i-1:FOR k=1 

Tk:FOR k=1 
»J 

658 INPU1F9,1d(i)::FOR j=1 TO 3:INPU 

T#9,gpxs( j,i) :INPUT#9, gpys( j,i) :NEX 

T j:INPUT#9,sxs(i) :INPUT#9,sys(i):I 


PRINT m 


i>1 THEN FOR j>-1 
TO 18: INPUT#9,a:NEX 
TO 25:INPUT#9,a$:NEXT k 
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NPUT#9, steine(i) 
698 FÜR j=1 TO 25:INPUT#9,bild$( j,i 
):NEXT j:CLOSEIN:IF 1d(i)=W THEN da 
t$=".LEV":GOTO 668 
788 LOCATE 3,4+i:PRINT SPACE$(4) :1_0 
CATE 17,4+i1:PRINT"IS LOADED." ; SPACE 
$C1a) 
718 NEXT i:RETURN 
728 ’Level editieren 
738 MODE 1:PEN 1:LOCATE 8,3:PRINT"”S 
ELECT LEVEL TO BE EDITED:":LUÜCATE 1 
S,28:PRINT"USE JOYSTICK" 
748 PEN 3:FOR i=1 TO 198:L0OCATE 28,5 
+i:IF i<1@8 THEN PRINT"8"”; :PRINT USI 
NG"”"#"”;i ELSE PRINT”19@” 
758 NEXT i:1l=1 
768 PEN 2:LOCATE 28,5+1:IF 1<1@8 THE 
N PRINT"”8"; :PRINT USING”#";1 ELSE P 
RINT"”180” 
778 FOR i=1 TO 58:NEXT i 
788 PEN 3:LOCATE 28,5+1:IF 1<1B8 THE 
N PRINI”8"; :PRINT USING"”#";1 ELSE P 
RINT”19” 
798 FOR i=1 TO SB:NEXT i 
888 j=J0Y(8) :IF j AND 16 THEN B48 
818 IF j AND 1 THEN 1=1-1:IF 1<1 TH 
EN 1=18 
828 IF j AND 2 THFN 1=1+1:1F 
HEN 1=1 
838 GOTO 768 
848 CLS:WINDOW#B, 1,25,1,25:WINDOW# 1 
‚26,40,1,25 
858 PEN #1,1:L0CATE#1,3,2:PRINT#A1I1,” 
WALL RUNNER":LOCATE#1,3,4:PRINT#1,"” 
GAME EDITOR" 
868 PEN #1,2:LOCATE#1,3,7:PRINT#F1,"” 
SELECT:":PEN#1,3:PRINT#1," ab ";: 
PEN#1,2:PRINT#1,"c ";:PEN#1,1:PRINT 
#1,"”d E X":sym=1:xx=1:yy=1 
878 IF NOT 1d(1) THEN FOR i=1 TO 25 
:bild$(i,1)=" 

":NEXT i 
8880 PEN 3:FOR i=1 TO 25:LOCATE 1,i: 
PRINT bild$(i,1);:NEXT i:IF NOT 1d( 
1) THEN 918 
898 PEN 2:FOÜOR i=1 TO 3:LOCATE gpxst 
i,1),gpys(i,1) :PRINT CHA$( 22) ; CHR$( 
1) ;"c";CHR$( 22) ;CHR$(B) ; :NEXT i 
998 LUCATE sxs(1l),sys(1):PRINT CHR$ 
( 22) ;CHRA$( 1) ;"d" ; CHR$( 22) ;CHR$(P); 
918 50UND 1,28,28, 15:PEN#1,1:LOCATE 
41,1+2*sym,9:PRINTF1,""" 
92% FÜR i=1 TO 5W:NEXT i:j=-JOY(9):1I 
F j=8 THEN 92% 
938 LOCATE#1,1+2*sym,9:PRINT#1,"” ” 
948 IF j AND 16 THEN FOR i=1 TU 184 
:NEXT i:GUOTO 988 
958 IF j AND 4 THEN sym=sym-1:1F sy 
m<1 THEN sym=7 
968 IF j AND 8 THEN sym=sym+1:IF sy 


1>18 1 


m>?7 THEN sym=1 

978 GUOTO 918 

988 a$=MID$l levdef$,sym, 1) :SOUND 1, 
48,20,15:IF a$="c" THEN =? ELSE IF 
a$-"d" THEN f=1 ELSE #=3 

998 IF a$="X" THEN 1d(1)=-1:60T0 12 


1800 IF a$="E" THEN 1d(1)=8:G0170 87 
(4) 

1018 PEN 1:LOCATE xx,yy:PRINT CHRA$L 
22) ;CHR$C 1) ;"?";CHR$L22) ;CHRA$(®) ; 
1828 FOR i=1 TO S®:NEXI i:j=JOY(B): 
t$=INKEY$:IF j=® AND t$="" THEN 182 
0 

1838 PEN 3:LOCATE xx,yy:PRINT MID$( 
bild$(yy,1),xx,1);:PRINT CHRA$( 22) ;C 
HR$EI1);:PEN 1:IF sxs(1)>® AND sys(l 
J)>8® THEN LOCATE sxs(1l),sys( 1) :PRINT 
”d"; 

1848 PEN 2:FOR i=1 TO 3:IF gpxsl(i,l 
)>® AND gpys(i,1)>® THEN LOCATE gpx 
s(i,1),gpys(i,1):PRINT"c”; 

1858 NEXT i:PRINT CHR$( 22) ;CHR$(®) ; 
1068 IF t$=CHR$( 13) THEN 918 

1878 IF j AND 16 THEN 1130 


1888 IF 5j AND 1 THEN yy=yy-1:IF yy< 
1 THEN yy=25 

1898 IF j AND 2 THEN yy=yy+1:IF yy> 
25 THEN yy=1 

1188 IF j AND A THEN xx=xx-1:IF xx< 
I THEN xx=25 

1118 IF j AND B THEN xx=xx+1:IF xx> 
25 THEN xx=1 

1128 GUOTO 1818 

1138 PEN f:IF a$="a" OR a$="b" OR a 


$=" " THEN LOCATE xx,yy:PRINT a$;:M 
ID$Cebild$lyy,1),xx,1)=a$:G0T0 1818 
1148 IF a$="c” THEN 1178 

1158 IF sxs{1)>® AND sys(1)>® THEN 
PEN 3:LOCATE sxs(1),sys(1):PRINT MI 
DECbIild$Lyy,1),xx,1);:PEN f 

1168 sxs[1l)=xx:sys{(1l)=yy:LOCATE xx, 
yy:PRINT CHR$( 22) ;CHR$( 1) ; "d" ; CHR$( 
22) ;CHR$(B) ;:GOTO 1818 

1178 PEN#1,2:LOCATE#1,3,12:PRINT#1, 
"NUMBER OF":LOCATE#1,3,13:PRINT#1,” 
ENEMY?":PEN#1,3 

1188 PEN 1:FOR i=1 TO 3:IF gpxsl(i,l 
J>8 AND gpys(i,1)>® IHEN LOCATEF gpx 
s(i,1),gpys(i,1) :PRINT CHRA$( 22) ;CHR 
$01) ;MID$LESTR$LI) ,2) ;CHR$( 22) ;CHR$L 
0); 

1198 NEXT i:LOCATE#1,18,13:50UND 1, 
58,28, 15:PRINT#1,"#":t$="":WHILE t$ 
="":t$=INKEY$:WEND:LOCATE#1,18,13:P 
RINT#1,t$:g=VAL(t$) 

1288 PEN 3:FÜOR i=1 TO 3:IF gpxsli,l 
J)>® AND gpys(i,1)>® THEN LUOCATE gpx 
s{i,1),gpys(i,1)::PRINT MID$(bild$( y 
Y: 1) > xx ’ 1) 3 
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1218 NEXT i:gpxs(g,1)=xx:gpys(g,1)= 

yy:PEN 2:FOR i=1 TO 3:IF gpxs(i,1l)> 

8 AND gpys(ti,1)>® THEN LOCATE gpxst 
i,1),gpys(i,1) :PRINT CHRA$( 22) ;CHRA$( 
1);"c";CHR$( 22) ;CHR$(B) ; 

1228 NEXT i:G0TO 1818 

12380 1d( 1)=-1:steine( 1) =8:S0OUND 1,2 

0,20,15:SUUND 1,40,2%,15:50UND 1,18 
‚a8, 15 

1248 FOR i=1 TO 25:FOR j=1 TO 25:1Ff 
MID$Cbild$(i,1),j,1)="a" OR MID$Cb 
ild$(i,1),j,1)="b" THEN steine(1l)=s 
teine(1) +1 

1258 NEXT j,i:50UND 1,188,2@,15:1F 
steine(1l1)=® THEN 1d( 1)=® 

1268 PEN#1,2:LOCATE#1,3,18:PRINT#1, 
"SAVE NEW":LOCATE#1,3,19:PRINT#1,"L 
EVELS?":PEN#1,3:LOCATE#1,11,19:PRIN 
T41,"#" 

1278 t$="":WHILE t$="" OR INSTRC"YN 
",t$) =98:t$=UPPER$( INKEY$) :WEND:LOCA 
TE#1,11,19:PRINT#1,t$:IF t$="N" THE 
N 1328 

1288 PEN#1,2:LOCATEF1,3,21:PRINT#F1, 
"ENTER" :LOCATE#1,3,22:PRINT#1,"FILE 
NAME :":PEN#1,3:LOCATE#1,11,23:PRIN 
#1,” .LEV" 

1298 LOCATE#1,3,23: INPUT#F1,"" ,‚dat$: 
dat$=UPPER$( dat$) :LOCATE#1,3,23:PRI 
NT/1,dat$:dat$=dat$+".LEV" 

1388 OPENOUT dat$:FÜOR i=1 TO 18:PRI 
NT#9,1d(i)::FÜOR j=1 10 3:PRINT#Z9,gpx 
s( j,i) :PRINT#9,gpys( j,i) :NEXT j:PRI 
NT#9,sxs(i) :PRINT#9, sys(i) :PRINT#9, 
steine(i) 

1318 FOR j=1 10 25:PRINT#9,bild$(j, 
i):NEXT 5j,i:CLOSEUUT 

1328 RETURN 

1338 ’Spielen 

1348 moeglich=MIN( 1d( 1) ,1d( 2) ,1d( 3) 
‚1d(4) ,1d(5) ,1d(6) ‚,1d(7),1d(8) ,1d(9 
J),1ld( 18)) :IF NOT moeglich THEN RETU 
AN 

1350 1=8:MODE 1:WINDOWZ®,1,25,1,25: 
WINDOW#1,26,48,1,25 

1360 PEN#1,1:1.0CATE#1,3,2:PRINTf1," 
WALL RUNNER"”:LOCATE#1,6,4:PRINT#1,” 
LEVEL" :LOCATE#1,6,9:PRINTf1,"LIVES" 
:LOCATE#1,6, 14:PRINTA1I, "SCORE" :LOCA 
TE#1,5,19:PHRINI41, "HISCORE" 

1378 PEN#1,2:FOR i=5 TO 1 STEP 5:L 
VCATEF1,6,i:PRINTZ1,CHR$C 150) ;STRIN 
G$L3, 154) ;CHR$L 156) :LOCATE#F1,6,i+1: 
PRINT#1,CHR$L 149) ;" — ";CHRA$L 149) :1 
UCATE#1,6,i+2:PRINT#1,CHR$( 147) ;5TR 
ING$( 3,154) ;CHR$( 153) :NEXT i 

1388 FOR i=15 TO 28 STEP 5:LOCATEAFI 
‚„4,i:PRINT#1,CHR$( 158) ;STRING$( 7, 15 
4) ;CHR$C 156) :LOCATE#1,4,i+1:PRINT#1 
‚CHR$( 149) ; SPACE$( 7) ; CHR$L 149) : LOCA 


TE#1,4,i+2:PRINT#1,CHR$( 147) ; STRING 
$(7,154) ;CHR$( 153) :NEXT i 
1398 lives=3:score=d:freeze=9:PEN#1 
3 
> 
1488 sz=®8:1=(1 MOD 18) +1:WHILE NOT 
ld( 1) :1=(1 MOD 19) +1:WEND 
1418 LOCATE#1,7,6:PRINT#1,USING”AHAH 
";1:PEN 3:CLS:FÜR i=1 10 25:LOCATE 
1,1:MID$Cbild$(i,1), 1) =LOWER$(bild$ 
(i,1)):PRINT bild$(i,1);:NEXT i 
1428 PFN 2:FOR i=1 TO 3:gpx(i)=gpxs 
(i,1):gpyCi)=gpys(i,1):LOCATE gpx(i 
J),gpy(i) :PRINT CHR$( 22) ;CHR$( 1) ;"c"” 
; CHR$( 22) ; CHR$() ; :NEXT i 
1438 PEN 1:sx=sxs(1l) :sy=sys{ 1) :LOCA 
TE sx,sy:PRINT CHRA$( 22) ; CHR$( 1) ;"d"” 
;CHR$C 22) ;CHR$(B) ;:FOR i=1 T0 3:50U 
ND 1,188, 18,15:S50UND 1,58, 18, 15:50U 
ND 1,25,15,15:NEXT i 
1448 IF Freeze THEN 1498 
1458 aus=#:FOR i=1 TU 3:PEN 3:LOCAT 
E gpx(i),gpy(i):IF MID$Cbild$legpyli 
J),1),gpx(i),1)<"a"” AND MID$Cbild$(g 
pyli),1),gpx(i),1)<>" " THEN PRINT 
CHA$( 127); ELSE PRINT MID$ChIild$Lgp 
yli),12),gpx(i),1); 
1468 xv=56GN( sx-gpx(i)) :yv=5GN( sy-gp 
yli)):IF gpx(i)+xv>® AND gpx(i)+xv< 
26 AND gpyli)+yv>B AND gpyli)+yv<?6 
THEN gpx(i)=gpxli)+txv:gpyli)=gpyli 
J+tyv 
1470 PEN 2:LOCATE gpx(i),gpyli):PRI 
NT CHR$( 22) ; CHR$( 1) ;"c" ;CHR$( 22) ;CH 
R$(B);:IF gpxli)=sx AND gpyli)=sy T 
HEN aus=-1 
1488 SOUND 2,0,2,4,0,0,5:NEXT 
aus THEN 1668 
1498 DI: PEN#1,3:LOCATE#1,7,11:PRINT 
#1 ,USING"”##4#" ; lives: LOCATE#1,5,16:P 
RINT#1,USING"AHHHHHH" ; score: IF scor 
e>high THEN high=score 
1588 LOCATE#1,5,21:PRINT#1,USING"AH# 
HHHHH";high:EI 
1518 j=JOY(B) :IF j=8 THEN 1448 
1528 PEN 3:LOCATE sx,sy:IF MID$(bil 
d$(sy,1),sx,1)<"a" AND MID$Lbild$ls 
y,1),sx,1)<>" " THEN PRINT CHR$( 127 
); ELSE PRINT MID$Cbild$(sy,1),sx,1 
J); 
1538 IF j AND 1 
1 THEN sy=25 
1548 IF j AND 2 
25 THEN sy=1 
1558 IF j AND 4 
1 THEN sx=25 
1568 IF j AND 8 
25 THEN sx=1 
1578 LOCATE sx,sy:PEN 1:PRINT CHR$( 
22) ;CHR$( 1) ;”d";CHR$( 22) ;CHR$( PB) ; 
1588 IF MID$Ebild$lsy,1),sx,1)=" " 


i:IF 


THEN sy=sy-1:1F sy< 


THEN sy=sy+t1:IF sy> 
THEN sx=sx-1:1IF sx< 


THEN sx=sx+1:1F sx> 
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OR (gpx(1)=sx AND gpyl 1)=sy) OR (gp 
x(2)=sx AND gpy(2)=sy) OR (gpx(3)=s 
x AND gpy(3)=sy) THEN 1668 
1598 IF MID$Cbild$(sy,1),sx,1)<"a"” 
THEN 1448 
1688 IF MID$Cbild$( sy,1),sx,1)="a"” 
THEN MID$Cbild$(sy,1) ,sx,1)="A":sco 
re=score+1:sz=sz+1:50UND 1,58,2,15: 
IF sz=steine( 1) THEN 1656 ELSE 1448 
. 1618 IF MID$(bild$(sy,1),sx,1)<>"b" 
THEN 1448 
1628 MID$Cbild$(sy,1),sx,1)="B":sco 
re=score+( score\2) :sz=sz+1:S50UND 1, 
25,2,15:1F sz=steine( 1) THEN 1658 
1638 SOUND 2,288,38,15:5SOUND 2,198, 
30, 15:50UND 2,59,68,15:BUÜRDER 7:fre 
eze=-1:PEN#1,3:LOCATE#1,38,24:PRINT 
#1,CHR$L240) ;CHR$L 241) ;STRING$L2,?4 
2) ;CHR$( 243) ; CHR$( 242) ; CHRA$( 244) 
1648 AFTER 398*590,@ GOSUR 1739:60T0 
1440 
1658 GOSUB 1738:C15:FOR i=1 
OUND 4,278-1*18,58, 15:BORDER 
3-1 
a08 
1669 LOUCATE sx,sy:PEN 3:1F MID$Cbil 
d$lsy,1),sx,1)<"a”" AND MLID$Cbild$(s 
y,‚l),sx,1)<>" " THEN PRINT CHR$( 177 
J); ELSE PRINT MID$Cbild$lsy,1),sx,1 
335 
1678 sx=sxs(1l):sy=sys( 1) :PEN 1:1L0C0A 
TE sx,sy:PRINT CHR$( 22) ;CHR$L 1) ; "d* 
;CHR$L?2) ;CHR$(B) ; :lives=lives-1:1F 
lives<1i THEN 1698 
1688 FOR i=38 TO 384 STEP 398:50UND 
4,1,4,15:NEXT i:G0OTUO 1448 
1698 GOSUB 1738:CLS:1INK 3,6,24:FOR 
i=1 TO 3:FOR j=38 TO 388 STEP 39:50 
UND 4,5,4,15:NEX1 j,i 
1788 PEN#1,3:LOGATE#1,7,11:PRINT#1, 
USING”#44"; lives: LOCATE#1,5,16:PRIN 
T#1, USING" AHHHHHH" ; score: IF score>h 
igh THEN high=score 
1718 LOCATE#1,5,271:PRINT#1,USING"#A 
HHHHH" high 
1728 WHILE INKEY$<>"":WEND:WHIILE IN 
KEY$="":WEND: INK 3,6:RETURN 
1738 dummy=HREMATN( 9) :BORDER A:LOCAT 
E#1,39,24:PRINT#1,SPACE$(7) :treeze= 
AM: RETURN 
1748 "Daten fuer Display Level 1 
17590 DATA aaaaaaasaaaaasaaasaacsadadaa 
1768 DATA aaaaaanaaaaaaaaaaaaaanaaaa 
1778 DATA aasaaaaanaaasaaaaanaaaaaa 
1788 DATA aaaaaanaaaaaaaaaaaaaaaaaa 
1798 DATA aaaaaaaaaaaaaaaaaaaaaaaaa 
1888 DATA aaaaaaaaaaaaaaaaaaaaaaaaa 
1810 DATA aaaaaaaaaaaaaaaanaaaaaaaa 
1828 DATA aaaaaabaaaaaaaaaaaaaaaaaa 
18390 DATA aaaaaaaaaaaaaaaaaaaaaaaaa 


T0 26:5 
i:FOR 
70 188:NEXT 5,i:BUORDER 9:G010 1 


1BAR DATA aaaaanaamaaaaaaaaaaaaaaaa 
1859 DATA aasaaaaaaaaaaaaaaaanaaaaaa 
1868 DATA anaaaaaaaaaaaaaaaaaaaaaaa 
187% DATA aannaaanaaaaaaaaaaaaaaaaa 
1888 DATA aaaaaaaaaaaaaaanaabaaaaaa 
1898 DATA assasaaaaasaaaadadaaaaaaada 


1988 DATA assasaasanaaaaasaanaaanaaanad 
1918 DATA aasaaaaaaaanasaaaaaaaaaaaa 


1928 DATA aaaaaaaaaaaaaaaaaaaaaaaaa 
1938 DATA aaaasaaaaaaanaaaaaaaaaaaa 
1948 DATA aaaaaabaaaaaaaaaaaaaaaaaa 
1958 DATA aaaaaaaasaaaaaaaaaaaaaaaaa 
1968 DATA aaaaaaaaaaaaaaaaaaaaaaaada 
1978 DATA aaaaaaaaaaaaaaaaaaanaaaaaa 
1989 DATA aaaaaaaaaaaaaaaaaaaaaaaaa 
1998 DATA assaanasaaaaaaaaaaaaanaaa 
2888 DATA 1,1, 18,10, 29,280, 15,24 
625 


WALL RUNNER 


Fortsetzung von Seite 58 


Geistern erscheinen Ziffern. Pro Runde verfolgen 

Sie drei dieser giftgrünen Gestalten. Denken Sie dar- 
an, auch die Nummer ] bis 3 zu setzen. Wenn Sie eine 
bereits vorhandene Ziffer eingeben, verändert sich die 
Startposition des entsprechenden Mauergeistes. 
Jonny Brick kann natürlich nur einmal gesetzt wer- 
den, und zwar auf eine Mauer. Er darf nie ins Leere 
treten, im Gegensatz zu den Geistern, die auch über 
dem Abgrund schweben können. 

Symbol E hat eine Sonderfunktion: Damit wird das 
ganze Spielfeld gelöscht. Mit X wird die Erstellung 
beendet. Nach einer kurzen Pause erscheint darauf- 
hin die Frage “Save new Levels?‘“. Wenn Sie mit 

Y (für Yes) antworten, müssen Sie noch einen Datei- 
namen eingeben. Vergessen Sie nicht, eine Diskette 
einzulegen! 

Gespielt wird wie folgt: Mit dem Joystick lenken Sie 
Jonny Brick über die Mauern, wobei jeder berührte 
Ziegel sein Aussehen verändert. Dabei werden Sie je- 
doch von den Mauergeistern verfolgt. Sie haben ledig- 
lich den Vorteil, den Bildschirm auf einer Seite ver- 
lassen und gegenüber wieder auftauchen zu können. 
Außerdem helfen Ihnen die Energieblöcke. Wenn Sie 
einen davon berühren, werden die Geister für die 
nächste halbe Minute eingefroren. 

Sobald ein Spielfeld vollständig abgegangen ist, geht 
es — mit Punktebonus — in den nächsten Level. 
Nicht definierte Spielstufen werden dabei natürlich 
übersprungen. Das Spiel ist beendet, sobald Sie durch 
Berührung mit den Geistern oder Tritte ins Leere alle 
drei Leben verloren haben. Nach einem Tastendruck 
erscheint wieder die Auswahl. 

Weitere Einzelheiten der Bedienung werden Sie beim 
Umgang mit dem Programm selbst herausfinden. Hier 
noch ein paar Hinweise zum Eintippen. Speichern 

Sie das Programm vor jedem Probelauf, da die Klein- 
buchstaben a bis d verändert werden. Läuft es durch 
einen Tippfehler doch nicht, einfach die Tasten 
CTRL-SHIFT-ESC drücken, also den CPC zurück- 
setzen. Dann Programm neu laden (mit LOAD“..., 
nicht RUN“...), auflisten lassen und Fehler korrigie- 
ren. Die Zuweisung “bild$(....)=" mit dem langen 
Leerzeichen-String dahinter, enthalten genau 25 Leer- 
zeichen. Dies nur, um Ihnen das Zählen zu ersparen. 


TRANSFER 


Es ist immer das gleiche. Die Arbeit mit einem CP/M- 
Kopierprogramm, etwa CSAVE und CLOAD oder 
FILECOPY, ist dem einen oder anderen einfach zu 
umständlich. Wieviel praktischer — mag sich Holger 
Pellmann gedacht haben — wäre ein Programm, das 
die ganze Arbeit abnimmt. Gesagt — getan, und 
schon präsentierte er uns das nachstehende Listing 
und die Programmbeschreibung. Dabei ist von unserer 
Seite eigentlich nur zu bemerken, daß die Lauffähig- 
keit auf dem CPC 6128 natürlich nur dann gegeben ist, 
wenn mit diesen Geräten trotzdem ein Kassettenre- 
corder betrieben wird. 

Transfer ist ein leistungsfähiges Programm zum Kopie- 
ren von Kassetten auf Diskette und von Diskette auf 
Kassette. Es ist menügesteuert und deshalb einfach 
zu bedienen! Transfer läßt bei binären Daten eine 
Verschiebung des Programmstartes sowie die Ände- 
rung der Einsprungadresse zu. Da heutzutage der Ko- 
pierschutz etwas anders ausschaut, handelt es sich 
bei „Transfer“ also nicht um ein Raubkopierpro- 
gramm. Trotzdem soll darauf hingewiesen werden, 
daß das Urheberrecht auf jeden Fall beachtet wer- 
den muß. 

Allgemeines zum Programm: Transfer arbeitet mit 
Amsdos-Vektoren und unterdrückt die Fehlermel- 
dungen des Amsdos nicht! Natürlich reagiert Trans- 
fer auf diese Fehler und bricht nicht ab (wie etwa 
Basic), da alle Amsdos-Zugriffe über Maschinencode 
erfolgen. 

Das Programm meldet sich mit dem Menü Tape 

to Dis. Punkt 1 ist der wohl interessanteste, näm- 
lich das Kopieren von Kassette auf Diskette. 

Das Programm fordert Sie zum Einlegen der Original- 
kassette, einer Diskette und zum Druck einer Taste 
auf. Sobald Transfer den 1. Block einer Datei gefun- 
den hat, müssen Sie den Diskettennamen eingeben. 
Dieser Name wird vom Amsdos verarbeitet, er darf 
also auch die gewünschte Usernummer oder das 
gewünschte Laufwerk enthalten. Möchten Sie aber 
die Datei nicht kopieren, drücken Sie einfach die 
Enter-Taste. Bei eventuellen Leserfehlern während 
des Kopierens bricht das Programm den Kopier- 
vorgang einfach ab und sucht das nächste File. Diese 
Routine wird wie alle Programmteile mit zweimali- 
gem Druck auf die ESC-Taste beendet (beim zweiten 
Druck solange gedrückt halten, bis das Programm 
darauf reagiert!). 

Der 2. Menüpunkt erstellt von einer eingelegten Kas- 
sette ein Inhaltsverzeichnis besonderer Art. Trans- 
fer informiert nicht nur über Art und Länge der 
Files, sondern auch darüber, ob diese vollständig 

auf Kassette sind. Fehlen einige Blöcke oder sind die- 
se unleserlich, so warnt das Programm Sie und gibt 
die Nummern der fehlenden Blöcke an. Dieser Kas- 
settenkatalog, der ebenfalls mit ESC abgebrochen 
wird, kann auch auf einem Drucker ausgegeben wer- 
den. Findet Transfer beim Aufruf dieses Menüpunk- 
tes einen Drucker vor (ON LINE Stellung!), so kann 
man zwischen Bildschirm und Drucker wählen. 
Unter dem Menüpunkt ‚Blöcke ausgeben“ verbirgt 
sich eine dem Basicbefehl CAT ähnliche Funktion, 


Bitte lesen Sie weiter auf Seite 68 
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AD (wunenueeeereeeeeeiutereegneernee 


20 '* TRANSFER 

30 '* VON 

a0 '* HOLGER PELLMANN 

5B '’* FUER 

60 ’* SCHNEIDER AKTIV 

78 '* CPC 464/664/6128 

BO 'FRFRRSEEHEERETERHÄEREEREENENRR 
138 KEY DEF 66,1,0,8 

148 ON ERROR GOTO 2478 

158 MEMORY 29999 

168 POKE EBE46, 15 

170 GOSUB 2929:G0SUB 298 

188 POKE 40267 ,PEEK( &BBSB} :POKE 482 
68, PEEK( &BBSC) :6010 288 

190 ’ 

288 MODE 1:BORDER 13:PAPER & 

218 INK ®8,0:INK 1,26:INK 2,6:INK 3, 
13 

228 CLS:PAPER 3:PEN 1:PRINT " TRAN 
SFER V 1.1 $ 1987 BY H.PELLMANN " 


Ei Bu 7 zu) Zu) Zu 7 zue 


eK 


yie 


, 

238 WINDOW #2,27,39,3,24:PAPER #2,2 
:PEN #2,1:CL5 #2 

248 WINDOW #1,2,25,3,13:PAPER #1,3: 
PEN #1,8:CL5 #1 

258 WINDOW #8,2,25,15,24:PAPER #8, 1 
:PEN #8,2:CL5 #08 

268 RETURN 


270 

288 CLS #2:PRINT #2:PRINT #2," TRA 

NSFER PPPPPPFP Tape to Disc 
HAUPTMENUE 


298 FRINT #2:PRINT #2:PRINT #2,"”1: 


File kopie- ren 
2e:Files auf- listen 
3:Bloecke ausgeb 
en ( CAT) 4A:Directory au 


sgeben 5:DISC & TAPE” 
388 CLS #1:PRINT #1 


318 PRINT #1,” Name:”:PRINT #1:PRIN 


T #1," Blocknummer:":PRINT #1,” Typ 
e :":PRINT #1,” Start am 
:PRINT #1," Laenge ra 


RINT #1," Einsprung :"” 

328 sprung=®d:WHILE sprung=B OR spru 
ng>5:w$=INKEY$:IF w$<>".” AND w$<>" 
6" AND w$<>"+" THEN sprung=VAL (w$) 
338 WEND:ON sprung GOTO 418,888,116 
8,1238,358 


3a0 

358 CLS:CLS#1:CL5#2:PRINT #2:PRINT 
#42,” TRANSFER PPPPPPPP DISC 
G TAPE HAUPTMENUE 


368 PRINT #2:PRINT #2:PRINT #2,"1:F 
ile kopie- ren 
2:Directory ausgeben 

3:TAPE s DISC 
378 PRINT #1:PRINT #1,” Name:":PRIN 
T #1:PRINT A#1:PRINT #1,” Type 


:":PRINT #1," Start :": PRINT 

#1,” Laenge :":PRINT #1 

‚‘' Einsprung :"” 

388 sprung-8:WHILE sprung=® OR spru 

ng>3:w$=INKEY$:IF w$<>"”." AND w$<>"” 

E” AND w$<>"+"” THEN sprung=VAL(w$) 

398 WEND:ON sprung GOTO 1348,1248,2 

88 

auo 

a18 '*=* FILE VON KASSETTE KOPIEREN 
zer 

a20 

438 CLS:PRINT :PRINT "” FILES KOP 

IEREN":PRINT:PRINT "” Bitte eine Dis 

kette und die Originalkassette e 

inlegen und eine Taste drue 

cken !";:CALL &BB18:PRINT "” 

448 PRINT:PRINT"” 

op” 

458 CLOSEOUT 

A468 anr=d:WHILE INKEY (66) <>8:G0OSUB 
1838: LOCATE #1,3,18:PRINT #1," 

":IF e=255 THEN LO 

CATE #1,3,18:PRINT #1,"Acht 

ung Lesefehler !" 

478 IF anr>® THEN 588 

A488 IF nr=1 AND e=® THEN GOSUB 578: 

GOSUB 668:60T0 548 

498 GOTO 548 

588 IF nr>1 AND an$<> n$ THEN GOSUB 
778:G0T0 548 

518 IF e=255 THEN GOSUB 778:G0T0 54 

1%) 

s28 1F nr=anr+1 AND an$=n$ THEN IF 
e=® THEN GOSUB 668 ELSE GOSUB 778: 

GOTO 548 

538 IF nr> anr+1 THEN GOSUB 778 

548 WEND 

558 IF anr>d THEN GOSUB 778 

568 CLS5:G0TO 288 

578 '**= FILE OPENOUT ** 

588 PRINT "” Bitte Diskettenname 
eingeben oder [ENTER] :" 

598 PRINT " ";:LINE INPUT "",dname$ 

688 IF dname$="" THEN PRINT "File w 

ird nicht kopiert.":RETURN 

618 IF LEN( dname$) >15 THEN PRINT "”F 

alscher Name”; CHR$(7) :FOR z=1 TO 508 

@:NEXT:PRINT SPACE$( 155) :GOTO 578 

628 FOR a=1 TO LEN(dname$) :POKE 369 

99+a,( ASC(MID$( dname$,a,1))) :NEXT:P 

OKE 48879,LEN( dname$) :POKE 39997,®: 


OK.” 
Press [ESC] to ST 


CALL 498878:IF PEEK( 39997) <> 
8 THEN PRINT "Falscher Name":GOT0O 5 
98 


638 FOR a=42912 TO 42926:POKE a-129 
11,PEEK( a) :NEXT 

648 GOSUB 2358 

658 GOSUB 1698: anr=nr:an$=n$:RETURN 
668 '’** FILE WRITING *#** 
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678 IF an$<>n$ THEN RETURN ELSE POK 
E 39997,8:CALL A4B81iB88:IF PEEK( 39997) 
=B8 THEN 7408 

688 fehler=PEEK( 39997) :IF fehler>12 
8 THEN fehler=fehler-128 

698 CLS:PRINT "” Diskettenfehler !": 
PRINT:PRINT"” Kopiervorgang beendet 

788 IF fehler=&23 OR fFehler=-&24 THE 
N PRINT” Diskette ist voll !" 

718 IF fehler=65 THEN PRINT” Disket 
te unformatiert !"” ELSE IF fehler=6 
6 THEN PRINT" Diskette geschuetzt ! 
728 
738 


POKE 39997,8:CALL 48127:anr=® 

RETURN 

748 IF last=® THEN anr=nr:RETURN 

758 POKE 39997,8:CALL 48893:IF PEEK 

( 39997) <>B THEN 688 

768 anr=98:PRINT” FILE kopiert !":PR 

INT" Bitte Taste druecken !":CALL & 

BB18:RETURN 

778 IF anr=®B THEN RETURN ELSE PRINT 

" Kopiervorgang beendet ":GOTO 728 

788 GOTO 288 

798 ” 

800 ” 

8in 

828 CALL 48846:IF PEEK( 39998) =8 THE 

N stream=8:G0T0O 888 

838 PRINT:PRINT” Ausgabe auf Drucke 

r ? (J/N" 

848 in$=INKEY$ 

858 IF in$="j" OR in$="J" THEN stre 

am=8:60T0 888 

868 IF in$="n" 

am=8:GOTO 888 

878 GOTO 848 

888 PRINT” Ausgabe auf 

=8B THEN PRINT"”Drucker" 

ildschirm" 

898 PRINT" press [ESC] to stop"”:PR 

INT:PRINT"Press PLAY then any key”: 

CALL &BB1B 

988 PRINT” OK." 

918 anr=B:alnr=d:WHILE INKEY( 66) <>® 

:GOSUB 1838:L0OCATE#1,3,18:PRINT#1,"” 
":IF e=255 TH 

EN LOCATE #1,3,18:PRINT#1," 

Achtung Lesefehler !" 

928 IF anr>® THEN 958 

938 IF nr=1 AND e=8 THEN GOSUB 1848 

:IF last=255 THEN PRINT#Astream,"Fil 

e korrekt.":anr=® 

948 GOTO 19018 

958 IF nr>1 AND an$<>n$ THEN PRINT# 

stream, "Achtung !":PRINT #stream, "F 

ile unvollstaendig !":PRINT"” 

":anr=8:G0TO 1818 
968 IF nr=1 THEN PRINT#stream, "File 


OR in$="N" THEN stre 


„ 


;‚:IF stream 
ELSE PRINT"”B 


nicht korrekt.":GO5SUB 1948:G0T0 18 
18 
978 IF nr=anr+ti THEN IF e=8d THEN an 
r=nr ELSE ble=-2?55:60T0 1818 
988 IF nr>anr+ti THEN PRINT#stream," 


Achtung !":PAINT#stream, "File unvol 

l1staendig !":PRINT” 
":PRINT#stream, "Bloc 

k ";sanr+1;"- Block ";nr-1;"fehlt !" 


:ble=255:anr=nr 

998 IF anr=nr AND last=255 AND ble= 

8 THEN PRINT#stream,"File korrekt.” 

zanr=® 

1888 IF anr=nr AND last=255 AND ble 

=255 THEN PRINT#stream, "File nicht 

korrekt."”:anr=® 

1818 WEND 

1828 PRINT "” 

eam=8 THEN PRINTA#B,"” 
Ende des Katalogs" 

1838 FOR a=1 TO 2588:NEXT:CLS:GOTO 

288 

1848 

1858 anr=8:IF e=255 THEN RETURN 


Ende”: IF str 


1868 IF stream=8 THEN 1118 

1878 CLS:PRINT:PRINT"” Name: ";n$ 
1888 IF t=8 THEN PRINT" Basic " EL 
SE IF t=2 THEN PRINT" Binaer " ELS 
E PRINT” ASCII ” 

1898 an$=n$:anr=1:bl=8 

1180 RETURN 

1118 PRINT#8,"File ":n$;” ; Type: 


"‚:IF t=® THEN PRINT#8,"” Basic = 
ELSE IF t=2 THEN PRINT#8,"” Binaer 
" ELSE PRINT#8,"” ASCII x 
1128 PRINT#8,"Start :";st;"; Laeng 
e :";1;"=>";1+INT( 1/2048) +( 1/2048=1 
NT 1/2848)) ;"Bloecke ; Einsprung 


an$=n$:anr=1:ble=® 
RETURN 


CLS:PRINT:PRINT" Tape C 
AT":PRINT:PRINT"Press PLAY then any 
key”:CALL &BB18 
1198 PRINT:PRINT" 

top" 
1288 WHILE INKEY(66)<>8:GOSUB 1838: 
LOCATE#1,3,18:PRINT#1,"” 

":IF e=255 THEN LOCATE#1,3 
‚18:PRINT#1,"Achtung Lesefe 
hler !" 
1218 WEND 
1228 PRINT:PRINT"” Tape CAT break 
":FOR a=1 TO 2588:NEXT:CLS:GOTO 288 
1238 GOSUB 1258:G0T0 288 
1248 GOSUB 1258:G0T0 358 
1258 


Press [ESC] to s 
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1260 

12780 ” 

1288 j1=PEEK( &BB5B) : J2=PEEK( &EBBSC) : 

POKE 37888,65:POKE 39997,8:POKE 488 

79,1:CALL 489878:CLOSEOUT:IF PEEK( 39 

997) <>® THEN CLS:RETURN 

1298 CALL ABB846:IF PEEK( 39998) =8 TH 

EN GOTO 1328 ELSE PRINT:PRINT” Ausg 

abe auf Drucker ? (J/N)":in$="":W 

HILE in$<>"J3" AND in$<>"N": 
in$=UPPER$( INKEY$) :WEND 

1388 IF in$="N"” THEN 1328 

1318 POKE &BB5A,&C3:POKE &BB5B,6&45: 

POKE &BBSC,&9D 

1328 MODE 2:PEN 1:PAPER 8:WINDOW 2, 

79,2,24:CALL A48868:POKE &BBS5SA,297:P 

OKE &BBSB, j1:POKE &BB5C, j2:PRINT"Bi 
tte irgendeine Taste drueck 

en !":CALL &BB18:G0SUB 288:RETURN 
1330 

1348 

1358 

1368 CLEAR: 

1378 FOR i=38888 TO 381988:POKE 

NEXT 

1388 CLS:PRINT:PRINT” Bitte Namen 

des Files eingeben :":PRINT 

1398 PRINT "” ";:LINE INPUT""”,dname$ 
1488 IF dname$="" THEN CLS:GOTO 358 
1418 IF LEN(dname$) >15 THEN PRINT"F 

alscher Name”; CHR$(7) :FOR z=1 TO 58 

@:NEXT: PRINT" 


i,®8: 


”:GOTO 1398 
1428 FOR a=1 TO LEN(dname$) :POKE 36 
999+a,( ASC(MID$( dname$,a,1))) :NEXT: 
POKE 48144,LEN( dname$) :POKE 39997,® 
:PRINT” ";:CALL 48143:IF PE 
EK( 39907) <>8 THEN PRINT:PRINT“ 
Fehler !":PRINT CHR$(7) :FOR i=1 TO 
1588:NEXT:CLS:GOTO 358 
1438 
1448 fileheader=PEEK( 39995) +PEEK( 39 
996) #256 
1458 b=PEEK( fileheader+18) :POKE 388 
18,2*( INT(b/2)) 
1468 FOR a=38821 TO 38827:POKE a,PE 
EK( a+( fileheader-3888B)) :NEXT 
1478 m$="":FOR i=fileheader+1 TO fi 
leheader+14:m$=m$+CHR$({ PEEK(i)) :n$= 
MID$Cm$, 1,8) :n$=n$+".":n$=n$+MID$( m 
$,9,3) :NEXT:GOSUB 1898 
1488 PRINT:PRINT” Cassettenname :"”: 
PRINT" ";:LINE INPUT name$:IF name 
$="=*" THEN name$=n$ 
1498 name$=MID$( name$, 1,16) 
1588 FOR a=1 TO LEN(name$) :POKE 299 
99+a,( ASCCMID$(name$,a,1))) :NEXT 
1518 GOSUB 2358 


1528 CLS:PRINT:PRINT” Bitte geben 5 


ie die ge- wuenschte Baudrate ein 
{ 780 - 36908 Baud ) :" 
1538 PRINT:PRINT" ”";:LINE INPUT bau 
d$:baud=VAL(baud$) :IF baud<?88 OA b 
aud>3688 THEN PRINT 

"::goto 15 
38 
1548 baud=INT( 333333/baud) :POKE 481 
62,ROUND( 18*{(baud/92.6)) :POKE 498164 
‚baud-256*INT(baud/256) :POKE 48165, 
INT(baud/256) :CALL 48161 


1558 PRINT” Bitte [REC], [PLAY] &G 
eine Taste druecken :":CALL &BB18 
1568 CLS:PRINT:PRINT” "ın$;” =>" 
:PRINT” ";:IF name$="" THEN PRIN 

T"Unnamed file” ELSE PRINT name$ 
1578 PRINT" mit"; INT( 333333/baud 
);"Baud" 

1588 ” 


1598 count=8:POKE 39997,8:WHILE PEE 
K( 39997) =® AND INKEY(68)<>® 

16898 CALL 48178:b1=PEEK( 39994) #256+ 
PEEK( 39993) :BL=>2848-b1l 

1618 IF PEEK( 39997) <>® THEN bl=b1l-1 
1628 POKE 38819,b1-256*INT(b1/256): 
POKE 38828, INT(BL/256) 

1638 POKE 498238,b1-256*INT(b1/256) :: 
POKE 49W231,INT(b1/256) 

1648 COUNT=count+1:POKE 38816,count 
:IF count=1 THEN POKE 30923,255 ELS 
E POKE 30023, 

1658 IF PEEK( 39997) <>® THEN POKE 38 
817,255 ELSE CALL 48242:IF PEEK( 399 
97)<>® THEN POKE 38017,255 ELSE POK 
E 38817, 

1668 PRINT” saving block 
ALL 4982907:WEND:CALL &BC7A 
1678 CLS:GOTO 358 

1688 STOP 

1698 REM 

1788 IF PEEK( 38818) >5 THEN RETURN E 
LSE c=8:FOR a=3880088 TO 398915:b=PEEK 
(a) :PRINT#9,CHR$(b) ; :c=c+b:NEXT 
1718 PRINT#9,CHR$( 8) ;CHA$CO); 

1728 b=PEEK( 38818) :b=INT(b/2) *#2:PRI 
NT#9,CHR$(b) ; :c=c+b 

1738 PRINT#9,CHR$( 8) ;CHR$( 0); 

1748 FOR a=38821 TO 38822:b=PEEK(a) 
:c=c+b:PRINT#9,CHR$Cb) ; :NEXT:PRINT# 
9,CHR$(B); 

1758 FOR a=38824 TO 38827:b=PEEK(a) 
:c=c+b:PRINT#9,CHR$( b) ; :NEXT 

1768 FOR a=38828 TO 38863:PRINT#9,C 
HRA$(B) ; :NEXT 

1778 FOR a=389024 TO 38825:b=PEEK(a) 
:c=c+b:PRINT#9,CHR$Cb) ; :NEXT:PRINT# 
9,CHR$(2B); 

1788 b=c MOD 256:PRINT#9,CHR$(b); :b 
=INT(c/256) :PRINT#9,CHR$(b); 

1798 FOR a=38869 TO 38127:PRINT#9,C 


:”";count:C 
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HA$(B) ; :NEXT 

1888 RETURN 

1818 REM 

1828 1=PEEK( 38019) +256*PEEK( 38028) : 
FOR a=31808 TO 1L+38999:b=PEEK(a):PR 
INT#9,CHR$Cb) ; :NEXT:RETURN 

1838 REM 

1848 POKE 39999,8:CALL A48988 

1858 IF PEEK( 39999) =8 THEN e=® ELSE 
e=255:RETURN 

1868 n$="":FOR i=38888 TO 38815:n$= 
n$+CHR$( PEEK(i)) :NEXT 

1878 nr=PEEK( 30816) 

1888 IF PEEK( 38817)=8 THEN LAST=B E 
LSE last=255 

1898 t=PEEK( 388018) :t=INT(t/2)*2 
1988 b1=PEEK( 38819) +PEEK( 38828) *256 
1918 st=PEEK( 38821) +PEEK( 38822) #256 
1928 1=PEEK( 38924) +PEEK({ 38825) #256 
1938 ex=PEEK( 38826) +PEEK( 38027) #256 
1948 LOCATE #1,7,2:PRINT#1," 
"- :LOCATE#1,7,2:PRINT#1,n 

$ 

1958 LOCATE#1,5,3:IF last=255 THEN 
PRINT#1,"letzter block” ELSE PRINT# 
Ba au 
1968 IF nr>® THEN LOCATE#1,14,4:PRI 
NT#1,nr;"” ii 

1978 LOCATE #1,14,5:IF t=® THEN PRI 
NT#1," basic " ELSE IF t=2 THEN PR 
INT#1," binaer " ELSE PRINT#1,” as 
cii " 

1988 LOCATE #1,14,6:PRINTfi1,st;" "” 
1998 LOCATE #1,14,7:PRINT#1,1;" ” 
2888 LOCATE #1,14,8:PRINT#1,ex;"” "” 
2818 RETURN 
2828 RESTORE 2888:FOR i=48088 TO 48 
269:READ i$:b=VAL("&"+i$) :POKE i,b: 
p=p+b:NEXT 

2083080 REM 
2848 REM 

280858 REM 
2868 IF p<>35316 THEN PRINT"data er 
ror!"”:END 
2878 RETURN 
20888 DATA CD,6E,BC,21,380,75,11,480,8 
8,3E 
2898 
3,75 
2188 
1,BC 
2110 
F,32 
2128 
D,DA 
2138 
E,88 
2148 
1,88 
2158 


DATA 2C,CD,A1,BC,D2,65,9C,2A,4 


DATA E5,D1,21,18,79,3E,16,CD,A 
DATA D2,65,9C,CD,71,BC,C9,3E,F 
DATA 3F,9C,CD,71,BC,C9,CD,2E,B 
DATA 7A,9C,3E,FF,32,3E,9C,C9,3 
DATA 32,3E,9C,C9,C3,86,9D,88, 1 


DATA 98,CD,9B,BC,D2,88,9C,C9,% 


6,00 
2168 DATA 21,88,98,11,80,91,CD,8C,B 
E92 
2178 DATA 50,9C,C9,CD,8F,BC,D2,88,9 
6,69 
2188 DATA 2A,43,75,E5,D1,21,18,79,7 
E,ES 
2198 DATA D5,CD,95,BC,D1,E1,02,80,9 
2,93 
2288 DATA 1B,7A,B3,C2,AC,9C,C9,CD,9 
2,BC 
2218 DATA D2,80,9C,C9,CD,2E,BD,38,F 
B,CD 
2228 DATA 2B,BD,C9,86,80,21,88,98,1 
1,D8 
2238 DATA 84,CD,77,8BC,D2,88,9C,22,3 
B,9C 
2248 DATA C9,3E,88,21,00,00,CD,68,B 
C,c9 
2258 DATA 21,09,808,11,17,79,28,13,2 
2,39 
2268 DATA 9C,E5,D5,CD,88,BC,D1,E1,1 
2,D2 
227@ DATA 88,9C,7C,B5,C2,F®,9C,C9,F 
EA 
2288 DATA CA,88,90D,32,3D,9C,C9,CD,6 
E,BC 
2298 DATA 21,38,75,11,48,80,3E,2C,C 
D,9E 
2388 DATA BC,D2,65,9C,21,18,79,3E,1 
6,11 
2318 DATA 99,88,CD,9E,BC,D2,65,9C,C 
DT 
2328 DATA BC,C9,CD,880,BC,D2,3C,9D,C 
D,86 
2330 DATA BC,C9,FE,1A,CA,38,9D,32,3 
D,9C 
2348 DATA C9,F5,CD,28B,BD,F1,CF,88,9 
4,C9 
2358 REM 
2368 IF t<>2 THEN RETURN 
2378 CLS:PRINT"neuer start ?“ 
2388 LINE INPUT e$:IF e$="" THEN 24 
18 
2398 IF VAL(e$)<B OR VAL(e$) >65535 
THEN PRINT" 

":GOTO 
2388 


2488 POKE 389821,VAL(e$) -256*INTL VAL 
(E$) /256) :POKE 38822, INT(VAL(e$)/25 
6) 

2418 PRINT"neuer einsprung ?"” 


2428 LINE INPUT e$:IF e$="" THEN 24 
58 
2438 IF VAL(e$)<B® OR VAL(e$) >65535 
THEN PRINT" 

":G0OTO 
2428 
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zu ac ee nen rss TFINANZGENIE 


6) Schon einmal, in Heft 2/87, veröffentlichten wir ein 
2458 GOSUB 1988 Programm, in dem es um Geld ging, genauer gesagt, 
>A68 RETURN um den Vergleich verschiedener Kreditkonditionen. 


Durch einen Fehler der Druckerei war das Programm 
2478 REM E unvollständig und wir merkten an den vielen Briefen 
2488 IF ERR=13 THEN IF ERL>2358 TH und Anrufen, wie sehr das Thema interessierte. In- 


N RESUME 2358 zwischen ist zwar unser Fauxpas bereinigt, an 

2498 MODE 2:PEN 1:PAPER ®:PRINT"tip | Listings, die den Anwender dabei behilflich sind, ein 
fehler in ";ERL;"?" paar Mark zu sparen, herrscht jedoch nach wie vor 

Bine . en“ große Nachfrage. 

2588 END Es geht ja nicht um den Kredit alleine. So mancher 


möchte sich ausrechnen, welche Summe im Lauf ei- 
ner bestimmten Zeit zusammenkommt, ob diese Spar- 
einlagen durch besondere Anlageformen verbessert 
E RAN PF e werden können und ob sich wegen der festen Geldan- 
lage nicht doch vorübergehend ein Kredit lohnen 


könnte. All diese Fragen beantwortet das „‚Finanz- 
genie“, ein Listing des Schneider-aktiv-Autors Hans 
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nämlich das einfache Überprüfen einzelner Blöcke Thielen. Durch die umfangreiche, aber bequeme Me- 
auf Lesbarkeit und Namen. Diese Funktion eignet nüführung konnte die nachstehende Programmbe- 
sich zum Suchen bestimmter Programme. Mit ESC schreibung knapp ausfallen. 

bricht man auch diese Routine ab. & 


Punkt 4 des ersten Menüs gibt die Directory einer EEE EEE IE EN TSIRAEEUEGERR 


Diskette aus und bedarf keiner weiteren Erläute- 


rung. Findet Transfer einen Drucker vor (ON LINE Hoehe der Sparrate 298 
Stellung!), wird die Directory auch auf dem Druk- Anzahl der Einzahlungen 12 
ker ausgegeben. Erz on. Seh Jahre 2 25 
Punkt 5 des Menüs sorgt für den Aufbau des 2. Me- i 
nüs Disc to Tape. Auch hier steht das Kopieren ei- Jahr Kapital 
nes. Files an erster Stelle; Zuerst wählen Sie den Na- 1” *°> +++ a 
men, den diese Datei auf Kassette haben soll. Geben a er a 
Sie hier nur ENTER ein, so wird es ein Unnamed 3 3537.84 
File, geben Sie ein * ein, so wird der Diskettenna- 4 198931.24 
me übernommen. Als nächstes können Sie die 5 14117.17 
a a 700 und ee va ne auswäh- 6 17568.904 
en. An dieser Stelle möchte ich darauf hinweisen, P 
daß der Recorder des CPC 464 nicht für CrO2 RarzenennBetrng : 4 aa ade 
Kassetten ausgelegt ist und Sie diese auf keinen Ratenzahl pro Jahr: 12 
ne en Baudraten age sollten effekt. Jahreszins: 9.75 % 
ei O Baud können Sie nämlich sonst von R : 
Glück reden, wenn der Computer den Namen Ihrer Era en 93 er “52 en 


Dan noch erkennt!). Ihre Eingabe wird zur nächst- 2 
möglichen Baudrate gerundet. Das Kopieren von 3 
Diskette auf Kassette eignet sich vorzüglich zum s = ‘ 2 ee 5 =, Bene 
Erstellen von Sicherheitskopien teurer Anwendungs- - = " 

: e: 6 2.35 268.55 [2] 
software. Sollte dem Original etwas zustoßen, kön- 


nen Sie die Kopie wieder auf Diskette zurück- Laufzeit 5_ Jahre 2 Monate 

kopieren. Summe aller Zinsen 

Punkt 2 des zweiten Menüs entspricht Punkt 4 des 32 DM 

ersten Menüs und Punkt 3 geht zurück ins erste Sparen oder Kredit: Komplette Vergleiche 

Menü. Das Programm ‚‚Finanzgenie‘“ ermöglicht es, recht 
Noch ein Hinweis zum Kopieren von Binärfiles: komfortable Vergleiche über Sparanlagen oder Kredit- 
Transfer fragt Sie nach einer neuen Startadresse verträge der verschiedenen Banken durchzuführen. 
sowie einer neuen Einsprungadresse. Das ist not- Es erlaubt die Berechnung und Auflistung von: 
wendig, weil einige Kassettenprogramme das Dis- — Zinsen 

ketten-RAM belegen. Wollen Sie die Adressen nicht — Kaufpreis von Wertpapieren 

verändern, drücken Sie nur ENTER. Beim Kopieren — Kredit- und Darlehenszinsen 

von geschützten Basicprogrammen (SAVE “ “,P) — Sparverlauf bei fester Sparrate 

wird der Schutz beim Kopieren nicht mitkopiert!! — Rendite von Wertpapieren 

Das ist ganz nützlich, da Kassettenprogramme zum Sämtliche Werte können auch in einer vorgewählten 
Nachladen oft keinen Namen angeben und Sie sol- Form (Menüpunkt 7) ausgedruckt werden. Die rele- 
che Programme erst ändern müssen. Wird dieses Pro- vanten Druckerroutinen befinden sich am Programm- 
gramm auf dem CPC 664 oder CPC 6128 eingesetzt ende und können leicht an andere Printermodelle 
und wird Ihr Recorder nicht vom Computer gesteu- als den Schneider NLQ angepaßt werden. Um das 
ert, so muß beim Lesen von Kassette nach jedem Programm auf allen CPC-Rechnern lauffähig zu ma- 
Block kurz das Band gestoppt werden! chen, wurde auf die Verwendung des DEC$-Befehles 
Viel Spaß beim Ausprobieren! (Holger Pellmann) verzichtet. 
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10 ER EEEEENEEEREE 


20 ’* FINANZGENIE # 
30 '* VON * 
40 ’* HANS THIELEN * 
50 ’* FUER * 
60 ’* SCHNEIDER AKTIV * 
70 ’* 


CPC 464/664/6128 je* 
80 Rennen 


100 MODE 2:PAPER O:PEN 1 

110 CLS 

120 CLEAR 

130 WINDOW #1,2,79,2,6 

140 WINDOW #2,2,79,8,24 

150 PAPER #1,1:PAPER #2,1:PEN #1,0: 
PEN #2,0:BORDER 18:CL5S #1:CL5 #2 
160. PRINT #1, "aerueneeueruesueneeen 
EEE IE EEE KARrTERHEH 
KRERSENTEHEEHEH FEUER 


170 PRINT #1,"x=* 


zur" 

180 PRINT #1,"#** 
”" Kapital und Zinsen - 
mm fuer Finanz-Neulinge 
" er" 
190 PRINT A1,"##* 
by Hans Thielen 
6 aan" 
200 PRINT #1, "#reusweruesenueeeeueee 
Kal. Sa D22 SL 222 5 2220322 022 2 ee EEE 
KUNCHCKERuEHEuEnEneege 
210 PRINT #2, "suuuueenencneueneeeen 
FERNEN 
ee 2 2.2 2222 We ee 
220 PRINT #2, "#** 

";CHR$( 24) ;" HAUPT - MEN 
UE ";CHR$(24) ;" 

en” 

230 PRINT #2, "x#x 


";CHR$( 24); 
Ein Progra 
";CHR$( 24) ; 


(c) 
Oktober 198 


au" 
240 PRINT Y42," a8 [1] 
BEER ERNENIERERRGGE Zinsberechnung (U 
ntermenue) ar 
250 PRINT 42," Re 
zug" 
260 PRINT #2, "#x=* [2] 
ee BEER Kaufpreis (Wertpa 
pier) Br" 
270 PRINT 42," ru 
zug" 
280 PRINT 42,"wax [3] 
22 PER EEE EEE Kreditzinsen (Dar 
lehen) ER 
290 PRINT H2," Re 
zur" 
300 PRINT 2," rar [4a] 


Sparverlauf bei f 
ester Sparrate Far" 


310 PRINT #2,"xxx 


ar” 
320 PRINT Ha," aus | 
REN EI EN Sparrate fuer fes 
tes Endkapital RR" 
330 PRINT H2," sr 
zur" 
340 PRINT #2, "xxx [6] 
Seas Rendite (Wertpapi 
er) Le 5 a 
350 PRINT 42," ae 
#44" 
360 PRINT H2,"ar% 


[7] 


Drucker einstelle 
n zuge 


370 PRINT #2, "seuuuusex 
Kal 2 (2022 22 2 27 2ER 


Ka 2 2 222 2 ern 
PReRSRERTeeEEE 
FH een 

380 tas$=INKEY$:IF tas$="" THEN 380 
390 IF tas$-"1" THEN GOTO 470 

400 IF tas$=">" THEN GOTO 3140 

A410 IF tasg="3" THEN GOTO 2500 

420 IF tas$="4"” THEN GOTO 3240 

430 IF tas$="5r THEN GOTO 2230 

440 IF tas$="6" THEN GOTO 2950 


450 IF tasg="7" THEN GOSUB 3570:G0T 
0 100 


460 GOTO 380 

470 CLS #2:CL5 #1 

480 PRINT #1:PRINT #1," 
R$(24);" zZ IN SRETCHN 
UN G ";CHR$( 24) 

430 PRINT #2:PRINT #2,” 


AUSWA H Lr 
PRINT #2,” 


"CH 


500 


510 PRINT 
[1] 
rechnen ki 
520 PRINT 
[2] 
rrechnen ” 
530 PRINT 
[3] 
errechnen ” 
540 PRINT 
IT4a] 
errechnen 
550 PRINT #2:PRINT #2,” 

Ihre Wahl bitte < 

1-4 >" 

560 a$=INKEY$:IF a$="" THEN 560 
570 IF a$="1" THEN 620 


Zinsen er 


Kapital e 


Zinsfuss 


Zeitraum 


580 


590 
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IF a$g="2" 
IF a$="3" 


THEN 1010 
THEN 1400 
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600 IF a$="4" THEN 1800 

810 GOTO 560 

620 GOSUB 900 

630 CLS #2:PRINT #2:PRINT #2," 

UNTER-MENUE ":PRINT #2 

:PRINT #2,” I. 1); serien 

-- Jahreszinsen a 

640 PRINT #2:PRINT #2,” [2] 
ee ne rien Monatszinsen re 

650 PRINT #2:PRINT #2,” [3] 
Serena Tageszinsen " 

660 PRINT#2:PRINT#2:PRINT#2, "” 

Ihre Wahl bitte < 

1-3 >" 

670 a$=INKEY$:IF a$="" THEN 670 

680 IF a$="1" THEN 720 

690 IF a$="2" THEN 780 

700 IF a$="3" THEN 840 

710 GOTO 670 

720 GOSUB 900 

730 CLS #2:PRINT #2: INPUT #2,"Kapit 

al ms 

740 INPUT #2,"Zinsfuss Dez 

750 INPUT #2, "Jahre 2 

760 PRINT #2:PRINT #2,"Die Jahreszi 


nsen betragen ";CHR$( 24) ;(kK*z*5) /(1 
00*1) ;CHR$( 24) 

770 GOSUB 940:G0T0 720 

780 GOSUB 900 

790 CLS #2:PRINT#2: INPUT #2,"Kapita 
1 "K 

800 INPUT #2," Zinsfuss a2 

810 INPUT #2, "Monate "m 

820 PRINT #2:PRINT #2,"Die Monatszi 
nsen betragen ";CHR$( 24) ;(k*z*m) /( 1 
00*12) ;CHR$( 24) 

830 GOSUB 940:G0T0 780 

GOSUB 900 

CLS #2:PRINT #2: INPUT #2,"Kapit 
al "Kk 

INPUT #2,"Zinsfuss nz 
INPUT #2,"Tage "st 

PRINT #2:PRINT #2,"Die Tageszin 
sen betragen ";CHR$( 24) ;(k*z*t) /( 10 
0*360) ;CHA$( 24) 

890 GOSUB 940:G0T0O 840 

900 CLS#1 

910 PRINT #1:PRINT #1," 


920 PRINT #1, Ro 

930 RETURN 

940 

950 PRINT #2:PRINT #2,CHR$(24);"” W 


";CHR$( 24) ;"=Weiter ”;CHR$(24) ;” 
A ";CHR$(24) ;"=Auswahl ";CHA$L24 
);" H ";CHR$( 24) ;"=Hauptmenue”; 
960 a$=INKEY$:IF a$="" THEN 960 
970 IF a$="w" OR a$="W" THEN RETURN 
980 IF a$="a" OR a$="A" THEN 470 


990 IF a$="h" 
1000 GOTO 960 
1010 GOSUB 1290 
1020 CLS#2:PRINT #2:PRINT #2,” 
eskapital zur 
1030 PRINT #2,” Monatskapital 

Per 2 _" 
1040 PRINT #2," Tageskapital 

= 3 ER . 
1050 PRINT #2:PRINT #2:PRINT#2,"Ihr 
e Wahl bitte Ne 
1060 a$=-INKEY$:IF a$="" THEN 1060 
1070 IF a$="1"” THEN 1110 
1080 IF a$="2" THEN 1170 
1090 IF a$="3" THEN 1230 
1100 GOTO 1060 
1110 GOSUB 1290 
1120 CLS #2:PRINT #2:PRINT #2: INPUT 
#2,"Zinsen "za 
1130 INPUT #2, "Zinsfuss ;z 
1140 INPUT #2, "Jahre 3 
1150 PRINT #2:PRINT #2,"Das Kapital 
betraegt ";CHR$( 24) ;( 100*za) /( z*3) 
;CHR$( 24) 
1160 GOSUB 1330:60T0 1110 
1170 GOSUB 1290 
1180 CLS #2:PARINT #2:INPUT #2, 
en "za 
1190 INPUT #2," Zinsfuss EZ 
1200 INPUT #2, "Monate ix 


‚m 
1210 PRINT #2:PRINT D 


#2:PRINT #2,"Da 
s Kapital betraegt ”;CHR$( 24) ;( 100% 
12*za) /(z*m) ;CHA$( 24) 


1220 GOSUB 1330:G0T0 1170 
1230 GOSUB 1290 

1240 CLS #2:PRINT #2:PRINT #2: INPUT 
#2,"Zinsen "za 

1250 INPUT #2, "Zinsfuss e 
1260 INPUT #2,"Tage u 
1270 PRINT #2:PRINT#2, "Das Kapital 


betraegt ";CHR$( 24) ;( 100*360*za) /(z 
*t) ;CHA$( 24) 


1280 GOSUB 1330:60T0 1230 
1290 CLS#1:CL5#2 
1300 PRINT #1:PRINT #1," 


KA P IT 


OR a$=-"H" THEN 100 


Jahr 


"Zins 


;z 
t 


PRINT #1," 


1320 RETURN 

1330 

1340 PRINT #2:PRINT #2,CHR$(24);"” W 
";CHRA$( 24) ;"=Weiter ";CHR$( 24) ;” 
A ";CHR$( 24) ;"=Auswahl "=CHRA$( 24 

);”H ";CHR$( 24) ;"=Hauptmenue"; 
1350 a$=INKEY$:IF a$="" THEN 1350 
1360 IF a$="w" OR a$="W" THEN RETUR 

N 


1370 IF a$="a" OR a$="A" THEN 470 
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NUTZEN SIE UNSEREN BEQUEMEN POSTSERVICE 


Das unabhängige Magazin 
für Schneider-Computer 


Finden Sie Ihre SCHNEIDER AKTIV nicht am Kiosk? 
Weil sie schon ausverkauft ist? Oder ‚‚Ihr‘‘ Kiosk 
nicht beliefert wurde? Kein Problem! Für ganze 60 
DM liefern wir Ihnen per Post zwölf Hefte ins Haus 
(Ausland 80 DM). Einfach den Bestellschein aus- 
schneiden — fotokopieren oder abschreiben, in ei- 
nen Briefumschlag und ab per Post (Achtung: Porto 
nicht vergessen). SCHNEIDER AKTIV kommt dann 
pünktlich ins Haus. 


KOMMT _ 
REGELMÄSSIG 
ZU IHNEN 


INS HAUS 


GARANTIE! 

Sie können diesen Abo-Auftrag bin- 
nen einer Woche nach Eingang der 
Abo-Bestätigung durch den Verlag 
widerrufen — Postkarte genügt. An- 
sonsten läuft dieser Auftrag jeweils 
für zwölf Ausgaben, wenn ihm nicht 
vier Wochen vor Ablauf widerspro- 
chen wird, weiter. 


D2. 


DAS SONDERANGEBOT: 
PRIVATE KLEINANZEIGEN 
SIND KOSTENLOS 


Das bietet Ihnen ab sofort SCHNEIDER AKTIV: KLEINAN- 
ZEIGEN SIND KOSTENLOS FÜR PRIVATANBIETER! Su- 
chen Sie etwas, haben Sie etwas zu verkaufen, zu tau- 
schen, wollen Sie einen Club gründen? Coupon ausfüllen, 
auf Postkarte kleben oder in Briefumschlag stecken und 
abschicken. So einfach geht das. Wollen Sie das Heft 
nicht zerschneiden, können Sie den Coupon auch fotoko- 
pieren. Oder einfach den Anzeigentext uns so schicken, 
auf Postkarte oder im Brief. Aber bitte mit Druckbuchsta- 
ben oder in Schreibmaschinenschrift! 

Und: Einschließlich Ihrer Adresse und /oder Telefonnum- 
mer sollten acht Zeilen a 28 Anschläge nicht überschrit- 
ten werden. 

ACHTUNG: WICHTIGER HINWEIS! 

Wir veröffentlichen nur Kleinanzeigen privater Inserenten 


kostenlos, gewerbliche Anzeigen kosten pro Millimeter 
DM 5,00 plus Mehrwertsteuer! 

Wir versenden für Privat-Inserenten keine Beleg- 
Exemplare! 

DIE INSERTION IST NICHT VOM HEFTKAUF ABHÄNGIG! 
Chiffre-Anzeigen sind nicht gestattet! Wir behalten uns 
vor, Anzeigen, die gegen rechtliche, sittliche oder sonsti- 
ge Gebote verstoßen, abzulehnen! 

Anzeigenabdruck in der Reihenfolge ihres Eingangs, kein 
Rechtsanspruch auf den Abdruck in der nächsten Ausga- 
be! 

Wir behalten uns vor, Anzeigen, die nicht zum Themen- 
kreis des Heftes — Computer — gehören, nur insoweit 
zu berücksichtigen, wie es der Umfang des kostenlosen 
Anzeigenteils zuläßt. 
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Die große Börse für jeden Zweck in SCHNEIDER AKTIV. Kostenlos für Privat-Inserenten. Spottbillig für gewerbliche Anbieter. Ein- 
fach Coupon ausschneiden, fotokopieren 0.ä., ausfüllen und ab die Post — Freimachen nicht vergessen! — Unsere Adresse steht 
auf dem Coupon, ebenso die Preise für gewerbliche Anbieter! Achtung! Wir weisen ausdrücklich darauf hin, daß wir offensicht- 
lich gewerbliche Anzeigen nicht kostenlos veröffentlichen und uns jedweden Abdruck kostenloser Anzeigen vorbehalten müssen, 
insbesondere, wenn deren Inhalt gegen geltendes Recht verstößt. Private Chiffreanzeigen werden nicht aufgenommen. Für Pri- 
vatanbieter: etwa bis zu acht Zeilen & 28 Anschläge. Für gewerbliche Anbieter: 5 DM p.mm. bei beliebiger Größe. 


SCHNEIDER AKTIV Name 
ANZEIGENABTLG SP/5 Vorname 
POSTFACH 1161 Straße /Hausnr. 


D-8044 UNTERSCHLEISSHEIM PLZ/Ort 


> a Da ee ee ee u a u ae 
ABO-SERVICE-KARTE 


Ich nehme zur Kenntnis, Ja, ich möchte von Ihrem Angebot Ausgaben an untenstehende An- 
daß die Belieferung Gebrauch machen. schrift. Wenn ich nicht vier Wochen 
erst beginnt, wenn die Bitte senden Sie mir bis auf Widerruf vor Ablauf kündige, läuft diese 
Abo-Gebühr dem Verlag ab sofort jeweils die nächsten zwölf Abmachung automatisch weiter. 
zugegangen ist! Name 

Vorname 

Straße /Hausnr. 

PLZ/Ort 

Ich bezahle: 


U] per beiliegendem Verrechnungsscheck 
[] gegen Rechnung 
bargeldios per Bankeinzug von meinem Konto 


bei (Bank) und Ort 


Kontonummer 
Bankleitzahl 
SCHNEIDER AKTIV (steht auf jedem Kontoauszug) 
ABO-SERVICE SP/5 Unterschrift 
1161 Von meinem Widerspruchsrecht habe ich Kenntnis genommen. 
UNTERSCHLEISSHEIM Unterschrift SP/5 
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PROGRAMMSERVICE 


Hiermit bestelle ich in Kenntnis Ihrer Verkaufsbedingun- 
gen die Listings dieses Heftes auf 


DI Kassetten (60 DM) OD Diskette (60 DM) 


Ich zahle: (Zutreffendes bite ankreuzen!) 
per beigefügten Scheck [] Schein U] 


Gegen Bankabbuchung am Versandtag 
Meine Bank (mit Ortsname) 
Meine Kontonummer 


Meine BankletzalEDEO (steht auf jedem Bankauszug) 
Vorname Nchhame [7 
Str’. PO  __$P/5 


Verkaufsbedingungen: Lieferung nur gegen Vorkasse oder Bankabbuchung. Keine Nachnahme. 
Umtausch bei Nichtfunktionieren. 


Unterschrift 
Bitte ausschneiden und einsenden an 


SCHNEIDER AKTIV 
KASSETTENSERVICE SP/5 
POSTFACH 1161 

D-8044 UNTERSCHLEISSHEIM 


=--—----- > 
LESER WERBEN LESER 


GEWINNEN SIE EINE COMPUTER- 
UHR! Und zusätzlich eventuell 
noch ein großes Computer-Buch. 
Oder ein Paket Disketten. ODER 
AUCH EINEN COMPUTER — 
ODER EINE DISKETTENSTATION! 
Wie? Sie werben einen Abonnen- 
ten. Dann haben Sie auf jeden Fall 
schon die Computer-Uhr gewon- 
nen. Zusätzlich verlosen wir unter 
allen, die mitmachen, jeden Mo- 
nat vier weitere wertvolle Preise. 
Und alle sechs Monate gibt es ei- 


Der neue Abonnent war bisher 
noch nicht Bezieher dieser Zeit- 
schrift. 

Als Prämie erhalte ich nach Ein- 
gang des Abo-Entgeltes auf jeden 
Fall eine Computer-Uhr, wie abge- 
bildet, und nehme zusätzlich noch 
an der Verlosung des Monats so- 
wie der halbjährlichen Hauptprei- 
se teil. Mir ist bekannt, daß der 
Rechtsweg ausgeschlossen ist. 
Meinen Preis senden $ie an 


nen Hauptpreis unter allen Abo- Name 

Werbern zu gewinnen. Also: Mit- ul 

machen. Mitgewinnen. Straße /Hausnr. Straße /Hsnr. 
PLZ/Ort 00000000 PLZ/Ort 


: j 4 (Bitte ausschneiden und zusam- 
Ja, ich mache mit beim Abo- als neuen Abonnenten von men mit der Abo-Bestellkarte links 
Wettbewerb. Ich habe SCHNEIDER AKTIV geworben. einsenden!) SP/5 


73 


Nr. 1 1/87-November | 8, Jah | gang 


ao iS 


TR 


LISTING 


1350 IF a$-"h" OR a&-"H" THEN 100 
1390 GOTO 1350 
1400 GOSUB 1680 
1410 CLS #2:PRINT #2:PRINT #2," 
[Lil _------------- Jah 
reszinsfuss " 
1420 PRINT #2:PRINT #2,” [ 2] 
Fe a ZreHz Monatszins 
fuss "” 
1430 PRINT #2:PRINT #2," [ 3] 
Seesen Tageszinsf 
US$ 
1440 PRINT#2:PRINT #2:PRINT #2," 
Ihre Wahl bitte < 
1-3 >" 
1450 a$=INKEY$:IF a$="" THEN 1450 
1460 IF a$="1" THEN 1500 
1470 IF a$="2" THEN 1560 
1480 IF a$="3" THEN 1620 
1490 GOTO 1450 
1500 GOSUB 1680 
1510 CLS #2:PRINT #2:1INPUT #2,"Zins 
en "za 
1520 PRINT #2:INPUT #2,"Kapital 
"ik 
? 
1530 PRINT #2:INPUT #2,"Jahre 
» 
1540 PRINT #2:PRINT#2:PRINT#2, "Der 


Zinsfuss betraegt ";CHR$( 24) ;( 100* 
za) /(k*j) ;CHA$( 24) 


1550 
1560 
1570 
a 

1580 
1590 
1600 


GOSUB 1720:G60T0 1500 
GOSUB 1680 


INPUT42, "Zinsen "zZ 
INPUT #2,"Kapital "Kk 
INPUT #2,"Monate "sm 


PRINT#2:PRINT #2,"Der Zinsfuss 


betraegt ";CHR$( 24) ;( 100*12*za)/(k 
m) ;CHR$( 24) 


1610 
1620 
1630 
a 

1640 
1650 
1660 


s betraegt 


GOSUB 1720:G0TO 1560 

GOSUB 1680 

INPUT #2,"Zinsen a 
INPUT #2,"Kapital “ak 
INPUT #2,"Tage FRE 
PRINT #2:PRINT #2,"Der Zinsfus 


";CHRA$( 24) ;( 100*360*za) / 


(k#t) ;CHA$( 24) 


1670 
1680 
1690 


S5” 
1700 


1710 
1720 
1730 
1740 


G0OSUB 1720:G0T0 1620 
C1L.5S#1:CLS5#2 
PRINT #1:PRINT #1,” 

zZ INS rF LUS 


PRINT #1, " 


RETURN 


[4 


} 


PRINT #2,CHRA$( 24) ;" W ";CHR$C2 


4);"=Weiter ”";CHR$(24);" A ”- CHR& 
(24) ;"=Auswahl ";CHR$( 24) ;” H rs 
HR$( 24) ;"=Hauptmenue”; 


1750 a$=INKEY$:IF a$="" THEN 1750 
1760 IF a$="w" OR a$="W" THEN RETUR 
N 

1770 IF a$="a" OR a$="A" THEN 470 
1780 IF a$=-"h" OR a$="H" THEN 100 
1790 GOTO 1750 

1800 GOSUB 2080 

1810 CLS #2:PRINT#2:PRINT #2," 

I ı] 0 _------------------ 

Jahre " 

1820 PRINT #2:PRINT #2," l 2 

] _---------- ---------.- Monate 
1830 PRINT #2:PRINT #2," [3 
]l _-------------------- Tage 
1840 PRINT #2:PRINT #2,” 

Ihre Wahl bitte 

<ı1- 3 >" 

1850 a$=INKEY$: IF a$="" THEN 1850 
1860 IF a$="1" THEN 1900 
1870 IF a$="2" THEN 1960 
1880 IF a$="3" THEN 2020 
1890 GOTO 1850 

1900 GOSUB 2080 
1910 CLS #2:PRINT #2: INPUT #2,"Zins 
en "za 

1920 INPUT #2,"Kapital "K 
1930 INPUT #2," Zinsfuss "zZ 
1940 


PRINT #2:PRINT #2,"Der Zeitrau 
m betraegt ”;CHR$( 24) ;( 100%*za) /( kK*z 
) ;CHR$( 24) ;" Jahre "” 


1950 GOSUB 2120:60T0 1900 

1960 GOSUB 2080 

1970 CLS#2:PRINT #2: INPUT #2,” Zinse 
n "za 

1980 INPUT #2,"Kapital ":K 
1990 INPUT #2, "Zinsfuss zZ 
2000 


PRINT #2:PRINT #2,"Der Zeitrau 
m betraegt ";CHR$(24) ;( 100*128za) /( 
k*z) ;CHR$(24) ;” Monate ” 

2010 GOSUB 2120:G0T0 1960 

2020 GOSUB 2080 

2030 CLS #2: PRINT#2: INPUT #2," Zinse 
n "za 

2040 INPUT #2,"Kapital "K 
2050 INPUT #2,"Zinsfuss u 
2060 PRINT #2:PRINT #2,"Der Zeitrau 
m betraegt ";CHR$( 24) ;( 100*360*za) / 
(k*z) ;CHA$C24) ;” Tage " 

2070 GOSUB 2120:G60T0 2020 

2080 CLS#1:CLS#2 

2090 PRINT #1:PRINT #1,” 


ZEITRAUM 


2100 PRINT #1," 
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LISTING 


2110 RETURN 

2120 

2130 

2140 PRINT #2:PRINT #2,CHR$( 24) ;" W 
";CHR$(24) ;"=Weiter ";CHA$(2A) ;” 
A ";CHRA$(24) ;"-Auswahl ";CHRS( 24 
;"H „;CHA$( 24) ;"=Hauptmenu ser 


e 
a$=INKEY$:IF a$="" THEN 2150 
IF a$="w" OR a$="W" THEN RETUR 


) 

2iso 
2160 
N 

2170 
2180 
2190 
2200 
2210 
2220 
2230 


IF a$="a" OR 
IF a$="h"” OR 
GOTO 2150 
REM Kapital 
CLS#1:CL5#2 
GOTO 100 
CLS #2:PRINT#2:PRINT #2, "” 

Es soll die Sparrate fue 
r ein bestimmtes" 
2240 PRINT #42," Endka 
pital bei gegebener Laufzeit und" 
2250 PRINT #2," Verzi 
nsung ermittelt werden." 
2260 PRINT #2:PRINT #2:INPUT #2,"An 
zahl der Einzahlungen/Jahr ";N 
2270 INPUT #2,"Anzahl der Jahre 


a$g="A" 
a$g="H" 


THEN 470 
THEN 100 


;J 
? 
INPUT #2,"Jahreszins 
ZZ 
INPUT #2,"Gewuenschtes Endkapi 
"K 
2=717 
Z=1+Z/N/100 
5=0 
FOR T=1 TO J 
FOR I=1 TON 
S5S=(5+1)*#Z 
NEXT: NEXT 
2370 R=K/S 
2380 PRINT #2:PRINT#2," 
Sparrate”;N;"” mal pro Jahr 
*100+0.5)/100;"”" DM" 
2390 PRINT #2:PRINT #2," 


Soll die Berechnung auf dem 
Drucker” 


2400 PRINT #2," au 
sgegeben werden <j/n> ?” 
2410 A$=INKEY$:IF A$<>"J" AND A$<>" 
3" AND A$<>"n" AND A$<>"N” THEN GOT 
D 2410 
2420 IF A$="N"” OR A$="n" THEN GOTO 
2220 
2430 PRINT #8," 
T #8, :PRINT #8 
2440 PRINT #8,"Anzahl der Einzahlun 
gen pro Jahr";N 
2450 PRINT #8,"Anzahl der Jahre 

".J 

’ 

2460 PRINT #8, "Jahreszins 

NZZ 


2280 


2290 
tal 

2300 
2310 
2320 
2330 
2340 
2350 
2360 


"INTER 


Sparrate":PRIN 


2470 PRINT #8, "Endkapital 


"-K 
’ 
2480 PRINT #8, "Erforderliche Sparra 


te ”; INT(A*100+0.5)/100 
2490 GOTO 2220 


2500 CLS#2:PRINT#2:PRINT #2,” 


Es soll der Tilgungs- und Zi 
nsverlauf” 


2510 PRINT #2," 
n Darlehen bei konstanten "” 
2520 PRINT #2," 
keiten berechnet werden.” 
2530 INPUT #2,"Darlehensbetrag 
"KK 

2540 INPUT #2,"Ratenhoehe 

RA 
"Anzahl der jashrlich 


fuer ei 


Faellig 


2550 INPUT#2, 
en Raten : 

2560 INPUT #2," effektiver Jahreszi 
ns ”"TZ 

2570 CLS #2 

2580 Z=ZZ/100/N 

2590 G=2:PRINTAG, 

2600 K=KK 

2610 K=KK 

2620 PRINT 
"KK” DM” 

2630 PRINT 

2640 PRINT 
”N 


#6,” Darlehensbetrag 


#G," Ratenhoehe 


#6," Ratenzahl pro Jahr: 


2650 PRINT #6,” effekt. Jahreszins: 
Br FE Zi 

PRINT #6 

PRINT#G, "Jahr 
Restdarlehen” 
Y=0:5=9 
TL=K:X=0 

FOR I=1 TON 

X=X+K#Z 

K=K+K*Z-R 

IF K>0 THEN GOTO 2760 

K=0 

GOTO 2770 

NEXT I 

Y=Y+1 

A$="":F$=" 


Zinsen Tilg 


2790 A$=STA$LY)+LEFT$CF$,7-LENCSTA$ 
ENI)) +STA$CINT( 100*X+0.5)/100) 

2800 A$=A$+LEFT$CF$, 16-LEN(A$)) +STA 
$C INT( 100*( TL-K) +0.5) /100) 

2810 A$=A$+LEFT$CF$,26-LEN(A$)) +STA 
$CINT( 100*K+0.5) /100) 

2820 PRINTAG,A$:A$="" 

2830 5=5+X 

2840 IF K>O THEN GOTD 2690 

2850 PRINT#AG, 

2860 PRINT#G, "Laufzeit"Y-1” Jahre”1 
2#I/N” Monate” 
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LISTING 


2870 PRINT#G, "Summe aller Zinsen" 
2860 PRINT#G, INT( 100#5+0, 5)/100" DM 


2890 IF D=1I IBEN D=-0:60T0 2220 
2900 PRINT#2, Soll di 


[2} Berechnung Aut Jem ureh 

2910 PRINTA2, sgege 
ben werden ung Ar 

2920 A$=INKEY$:IF A$<>"J" AND A$<>" 


3” AND A$<>"n" AND A$<>"N" THEN GOT 
0 2920 

2930 IF A$="N" OR A$="n" THEN GOTO 
2220 


2940 D=1:G=8:G0T0 2610 

2950 CLS#2:PRINT#2: PRINT #2,"Es sol 
l die Rendite eines Wertpapieres be 
rechnet werden.” 


2960 PRINT #2:INPUT #2,"Kaufpreis 
miK 
’ 
2970 PRINT #2:INPUT #2,"Nennwert 
"N 
’ 
2980 PRINT #2:INPUT #2,"Ertrag pro 


Jahr 
BZ 
2990 PRINT EN INPUT #2,"Restlaufzei 
t " 
3000 R= N ibueage "K) /UK*T) 

3010 PRINT #2:PRINT #2,"Rendite in 
Prozent:";R 

3020 PRINT #2," 

Soll die Berechnung auf dem" 

3030 PRINT #2, 

Drucker ausgegeben werden <j/n> ?" 
3040 A$=INKEY$:IF A$<>"J" AND Ag<>" 


(in Prozent auf den Nennwert)" 


3" AND A$<>"N"” AND A$<>"n" THEN GOT 
0 3040 

3050 IF A$=-"N" OR A$-"n" THEN GOTO 
2220 

3060 PRINT #8, "Renditeberechnung": 
RINT #8, :PRINT 48 

3070 PRINT #8,"Kaufpreis "sK 
3080 PRINT #8, "Nennwert "N 
3090 PRINT #8, "Nominalzinz m 
3100 PRINT #8, "Restlaufzeit HT 
3110 PRINT #8,"Rendite RA 
3120 PRINT #8, "----------------- 
3130 GOTO 2220 

3140 CLS#2:PRINT#2:PRINT #2, " 


Es soll der Kaufpre 
is eines" 
3150 PRINT #2, 
Wertpapiers bei gegebener Rendite" 
3160 PRINT #2, 
berechnet werden. 
3170 PRINT 42: PRINT #2:INPUT #2, 
nnwert "N 
3180 PRINT #2:INPUT #2 

mZ 
? 


‚ Nominalzins 


t ST. 

3200 PRINT #2: INPUT #2,"Rendite 
"R 

3210 


K=N#( Z+100/T) /(R+100/T) 


3220 PRINT #2,"Kaufpreis = 


;K 

7 

3230 GOTO 3020 

3240 CLS#2:PRINT #2:PRINT #2, 


Es soll der Sparverlauf be 
I gegebener” 


3250 PRINT #2, 

te ermittelt werden. 
3260 PRINT#2: INPUT #2, 
arrate ER 
3270 PRINT#2: INPUT #2, 
jaehrl. Einzahlungen”;N 


3280 PRINT#2: INPUT #2, "Anzahl der 
Jahre Rt E 


3290 PRINT#2: INPUT #2, 

o Jahr ;ZZ 
3300 CLS #2 

3310 PRINT#Z2, "” 
Kapital” 
Z=1+ZZ/N/100 


Sparra 
"Hoehe der Sp 


"Anzahl der 


"Zinssatz pr 


Jahr 
3320 


3330 FOR J=-1 TO T 

3340 FOR I=1 TO N 

3350 K=(K+R)#z 

3360 NEXT 

3370 PRINT $2.J: xK. 

aa En #2,J; , INT( 100%K+0.5)/100 
3390 PRINT #2:PRINT %2, 


Soll die 
er „ 
3400 PRINT #2," 


Berechnung auf dem Druck 


ausgege 
ben werden <j/n> ?” 

3410 A$=INKEY$: IF A$<>"3" „AND A$<>" 
3” AND A$<>"N" AND A$<>"n" THEN GOT 
0 3410 

3420 IF A$S="N" OR A$="n" THEN GOTO 
2220 

3430 PRINT #8, 


SPARVERLA 
Ur” 


3440 PRINT #8, STRING$(40,"-”) 
3450 PRINT #8, :K=0 
3460 PRINT #8,"Hoehe der Sparrate 


"A 
’ 
3470 PRINT #8,"Anzahl der Einzahlun 
gen”;N 
3480 PRINT #8,"Anzahl der Jahre 

st 

’ 

3490 PRINT #8, "Zinssatz 

ZZ 
3500 PRINT #8:PRINT #8,"Jahr", "Kapi 
tal” 
3510 


PRINT #8,STRING$(40,"-") 

FOR J=1 TO T 

FOR I=1 TON 

3540 K=(K+A) #Z: NEXT 

3550 PRINT #8,J,INT( 100*K+0.5)/100 


3560 NEXT:CGLOSEOUT:GOTO 2220 
77 


3190 PRINT #2:INPUT #2,"Restlaufzei 


LISTING 


3570 ELS #1:CL5 #2 
250 PRINT #1 


3590 PRINT #1, DRUCK 
ER - EINSTe S LLUNG m. 
ECHR$(24);”" NLQ 401 ";CHR$( 24), 
3600 PRINT #1:PRINT #, 
KER insel a? Srekes SDRNE 
3610 PRINT #2 
3620 PRINT #2," ME 
NUE "” 
3630 PRINT #2:PRINT #2," 
;CHR$C24);" [ 1 1] ;CHA$( 24) ;” Sr 
------ - Engschrift” 
aAg PRINT #2:PRINT „I - 
";CHR$( 24) ; "[2] ";CHR$( 24) ;* => 


Normalschrift"” 

3650 PRINT #2:PRINT „ra; ” 
":CHR$(24);" [ 3) ";CHA$( 24) ;” ==> 

z,u-072- nn Schöenschräft (NLQ) 


ein" 

3660 PRINT #2:PRINT „#23 “ 
;CHR$(24);" [ A] ";CHA$(24) ;" ar 

nn... Schoenschrift (NLQ) 

aus" 


3670 PRINT #2:PRINT „ra; m 
";CHR$(24);" [ 5] ";CHR$(24);* -- 


onranınn nn nn Doppelanschlag 
3680 PRINT #2:PRINT #2," 


";CHR$(24);" [6] "; ;‚CHR$( 24); == 


oo nenn Super ee 

3690 PRINT #2:PRINT „#2, ka 
";CHA$(24);" [ 7] ";CHR$( 24) ; -— 

Zeilenabstand 1/8" 

3700 dr$=INKEY$:IF dr$="" THEN 3700 

m. IF dr$="1" THEN PRINT #8, CHR$( 

’ 
Hs IF dr$="2" THEN PRINT 
’ 

3730 IF dr$="3" THEN PRINT 

27) +CHR$C 73) +CHR$C 3) ; 

3740 IF dr$="4" THEN PRINT 

27) +CHR$( 73) HCHR$C 1); 

3750 IF dr$="5" THEN PRINT 

27) +CHR$( 71); 

3760 IF dr$="6" THEN PRINT 

277) +CHR$CB3) +CHR$C 0) ; 

3770 IF dr$="7" THEN PRINT 

27) +CHRA$( AB); 

3780) RETURN 


nn nn 


#8, CHR$( 
#8 , CHR$( 
#8, CHR$( 
#8 , CHR$( 
#8 ,CHR$( 


#8, CHR$L( 


Mit Schneider aktiv 
sind Sie immer 
AKTIV! 


MULTI- 
REGRESSION 


Der Satz ‚‚Ich glaube nur an die Statistik, die ich 
selbst gefälscht habe‘, ist deshalb falsch, weil Statis- 
tik eben eine exakte mathematische Wissenschaft ist. 
Wesentlicher Bestandteil einer solchen Zahlendar- 
stellung ist die Regressionsgerade, die das Verhältnis 
zweier Zahlenreihen zueinander wiederspiegelt. Die 
Berechnung und grafische Darstellung dieser Geraden 
ist allerdings nicht jedermanns Sache. Herbert Wolf- 
steller hat mit seinem Programm ‚,‚Multiple Regres- 
sion“ allen die Arbeit abgenommen, die mit der 
Mathematik auf Kriegsfuß stehen. 


Programmbeschreibung 

Hauptmenü 

Nach dem Start erscheinen die Titelseite und anschlie- 
ßend das Datenverwaltungsmenü mit den Punkten 
Eingeben, Regression, Kontrollieren, Laden und Spei- 
chern. Nach der Wahl von Eingabe (1) wird abgefragt, 
ob es sich um eine Neueingabe handelt, d.h., alle be- 
stehenden Daten im Speicher werden gelöscht. Durch 
die Taste “f‘““ werden die folgenden Eingaben an die 
bestehenden angehängt, alle anderen Tasten führen 
zur Neueingabe. Es besteht die Möglichkeit, die vor- 
eingestellte Anzahl von 99 Wertpaaren auf bis zu 
2800 zu erhöhen. Die Eingabe der Werte erfolgt paar- 
weise, durch Drücken einer “Nicht-Zahl“-Taste ge- 
langt man wieder in das Hauptmenü. 
Regressionsmenü 

Es besteht die Auswahl zwischen einer linearen, einer 
exponentiellen, einer logarithmischen und einer po- 
tenzierten Regressionsberechnung. Zusätzlich kann 
eine automatische Kurvenanpassung erreicht werden 
oder es ist der Rücksprung in das Datenverwaltungs- 
menü möglich. Im Rahmen der Regressionsrechnung 
werden die Anzahl der Wertpaare, die x- und y-Mit- 
telwerte, die x- und y- -Standardabweichung, die Kur- 
venparameter und der quadratische Korrelationskoef- 
fizient angezeigt. Nach erfolgter Regression sind im 
Regressions-Endmenü folgende Möglichkeiten gege- 
ben: Grafik, weitere Regression, Datenverwaltung 
und Ende. Die angeführten Punkte erklären sich von 
selbst. 

Das Abspeichern einer Grafik wird durch ein entspre- 
chendes Menü nach Aufbau derselben möglich. Die- 
ses Menü kann bei Bedarf leicht um eine Hardcopy 
erweitert werden, wie überhaupt alle Menü-Erweite- 
rungen leicht einzubauen sind. 


Wichtige Bemerkungen 

Die Kommataste wird als Dezimalpunkt interpretiert. 
Falls das Programm durch BREAK unterbrochen und 
ein neues eingeladen wird, ohne den Computer zuvor 
zurückzusetzen, dann bleibt diese Tastendefinition 
erhalten. 

Die exponentielle Regression setzt positive y-Werte, 
die logarithmische Regression positive x-Werte, 

und die Potenzregression positive x- und y-Werte 
voraus. 


LISTING 


ID RER EHER HEHE 


20 ’* MULTIREGRESSION = 

30 ’* VON * 

40 °* HERBERT WOLFSTELLER * 

50 '*# FUER * 
60 ’* SCHNEIDER AKTIV * 

70 °’* CPC 464/664/6128 * 

[= To BL 2 = 2 2.2 22 2 22.2.2 2020202022 22.2.2 202.202 22022 
100 REM 

110 REM Titelbild 

120 REM 

130 MODE 2 

140 LOCATE 1,1 

150 PEN O:PAPER 1:BORDER 0:PRINT:PR 
INT" en Zn MU ı. 
TIREGRESSTITON * 

..* “; 


160 PAPER O:PEN 1:LOCATE 27,3:PRINT 
STAING$(29,"-”) 

170 LOCATE 27,5:PRINT CHR$( 164) ;" H 
erbert Wolfsteller , Kiel" 

180 PRINT:PRINT” - Datenverwaltung” 
:PRINT"” - Mittelwerte”:PRINT"” - Sta 
ndardabweichungen":PRINT"” - Lineare 
Regression":PRINT"” - Exponentielle 
Regression”:PRINT" - Logarithmisch 
e Regression" 

190 PRINT" - Potenzregression":PRIN 
T" - Graphik fuer Messwerte und Aeg 
ressionkurve"” 


200 PRINT” - Automatische Wahl der 
guenstigsten Regression" 

210 PRINT:PRINT"” -- > Die 
",'- Taste kann als Dezimalpunkt ve 
rwendet werden! <. S="5 

220 PRINT:PRINT"” -- > Exponentiel 
le Regression ist nur bei positiven 
y-Werten moeglich ! < --"; 

230 PRINT:PRINT" -- > Logarithmisc 
he Regression ist nur bei positiven 
x-Werten moeglich ! < --"”; 

240 PRINT:PRINT"” -- > Potenzregr 

ession ist nur bei positiven x- und 
y-Werten moeglich ! < --"; 


250 LOCATE 1,25:PRINT"” Weiter mit be 
liebiger Taste !":CALL &BB18 


3850 GOSUB 420:60T0 520 

390 REM 

400 REM # #® * Window-Umrandung * 
x * 

410 REM 

420 LOCATE 2,2:PRINT STRING$( 78,CHR 


$( 154) ) 
430 LOCATE 1,2:PRAINT CHA$C 150) :LOCA 
TE 80,2:PRINT CHRA$( 156) :LOCATE 39,2 
:PRINT CHR$( 158) 

440 FOR k=3 TO 20 

450 LDOCATE 1,k:PRINT CHA$( 149) ;:LOC 
ATE 39,k:PRINT CHR$( 149) ; :LOCATE 80 
‚„k:PRINT CHRA$( 149) 

460 NEXT 

470 LOCATE 1,21:PRINT CHA$( 147), :LO 
CATE 2,21:PRINT STRING$( 78, CHR$( 154 
)) ;:PRINT CHR$( 153) :LOCATE 39,21:PR 


INT CHR$( 155) 

450 RETURN 

490 REM 

500 REM Datenverwaltungsmenue 

510 REM 

520 PRINT#3,"1<-EINGEBEN 2<-REGRES 
SION 3<-AENDERN 4<-KONTROLLIEREN 
5<-LADEN 6<-SPEICHERN"; 


530 a$=INKEY$:IF a$="" THEN 530 
540 CLS#4:CL5#5 
550 IF a$="1" THEN 
560 IF a$="2" THEN 
570 IF a$="3" THEN 
580 IF a$="4" THEN 
590 IF a$="5" THEN 
600 IF a$="6" THEN 
610 GOTO 530 

620 REM 

630 REM Dateneingabe 
640 REM 

650 PRINT#F4A," 


GOTO 650 
1400 
1070 
950 
1280 
1160 


Eingabe fortsetzen 

-> [4 F ‚sw 
Neueingabe (Alte Date 
-> alle ander 


660 PRINT#A, 
n werden geloescht !) 
en Tasten" 

670 a$=-INKEY$:IF LOWER$(a$)="f" THE 
N i=nx:G0OTO 750 ELSE IF a$=-"" THEN 
670 

680 CLEAR 


260 REM 

270 REM Programmbeginn 690 CLS#4:PRINT#4," Falls Dimension 
280 REM ierung geaandert werden soll, bitte 
290 KEY DEF 39,1,46 eingeben (<=28B00) !"” 

300 WINDOW#1,2,32,3,20 700 PRINT#4," (Voreinstellung: max 
310 WINDOW4#2,40,70,3,20 . 99 Wertepaare, dann nur <ENTER> d 
320 WINDOW#3,1,80,25,25 ruecken !)" 

330 WINDOW#4,1,80,22,23 710 INPUT#5," Max. Anzahl der Werte 
340 WINDOW#5,1,80,24,24 paare ";dimen 

350 PAPER#3,1:PEN#3,O 720 IF dimen >2800 OR dimen <D THEN 
360 CLS 690 

370 PRINT” Le D A 730 dimen=dimen+1:IF dimen=1 THEN d 
TE NER WA LT UN imen=100 

G LE ir 740 DIM x(dimen) ‚y(dimen) :i=O 2» 
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LISTING 


750 CLS#5:CL5#4:CL5#41:CL5#2:e=-1:PR 

INT#3,"” Dateneingabe (Abbruch m 
it Buchstabe <ausser E!> )"” 

760 WHILE e<>O AND i<dimen-1 

770 i=-i+1 

780 PRINT#1,"x(";:PRINT#1,USING"##" 
;i;:PAINT#1,")= ";:INPUT#1,"",x$:j- 
1 

790 3j=1 

800 WHILE j<=LEN(x$) AND e<>O 

810 as=ASC(MID$Cx$,Jj,1)) 

820 IF (as<>ASC(".") AND as<4B AND 

as<>45) OR (as>57 AND as<>69) THEN 

e=0 

830 IF x$="." OR x$="-" THEN x$="0" 

840 j=j+1 

850 WEND 

860 IF e=DO THEN i=i-1:G0T0O 880 ELSE 
IF yflag THEN yflag=0:y(i)=VAL(x$) 
:GOTO 880 ELSE x(i)=VAL(x$) 

B70 yflag--1:PAINT#2,"y(";:PRINT#2, 

USING"”##" ;i;::PRINT#2,")- ";:INPUT#2 
‚"",x$:G0T0 790 

880 WEND 

890 nx=i 

900 IF i=dimen-1i THEN PRINT#S5,"” Ein 
gabe beendet - Dimensionierung vol 
l ausgeschoepft !" 

910 GOTO 520 

920 REM 

930 REM 
940 REM 

950 PRINT#F3," DATEN KONT 
ROLLIEREN <Anhalten mit 
der Leertaste ! > " 

960 CLS#1:CL5#2:LOCATE #1,1,1:L0CAT 
E #2,1,1:i=0 

970 WHILE INKEY$<>"” " AND i<nx 

980 i=i+1:PRINT#1,"x("; :PRINT#1,USI 
NG"”##" ;i; :PRINT#1,")= ";x(i) :PRINT# 
2,"y(";:PAINT#2,USING"##" ;i; :PRINT# 
2,")= ";yli) 


Datenkontrolle 


990 WEND 

1000 IF i>=nx THEN 520 

1010 w$=INKEY$:IF w$="" THEN 1010 
1020 IF w$=" "” THEN 970 

1030 GDOTO 520 

1040 REM 

1050 REM Daten aendern 

1060 REM 

1070 INPUT#4,” Welche Datennummer s 


oll geaendert werden"; nummer 

1080 PRINT#3,"” DATEN AE 
N DE R N" 

1090 IF nummer >nx THEN PRINT#F5,"” D 
iese Nummer ist nicht vorhanden!"”:C 
LS#4:G0TO 1110 

1100 i=nummer :PRINT#1,"x("; :PRINT#1 
‚USING”##";i;:PRINT#1,"”)= ";::INPUT# 
1,"",xCi) :PRINT#2,"yC";:PRINT#2,USI 


NG" ##" ;i; :PAINT#2,")- "; :INPUTF2,"" 
‚yti) 

1110 PRINT#4," Noch eine Aenderung 
t3/n) 2” 

1120 a$=INKEY$:IF a$="" THEN 1120 E 
LSE IF LOWER$(a$)="j" THEN CLS#4:CL 


5#5:G0T0 1070 ELSE IF LOWER$(La$)="n 
" THEN CLSZ4:CL5#5:6G0T0 520 ELSE 11 


1130 REM 

1140 REM Daten abspeichern 

1150 REM 

1160 PRINT#3," DATEN AUF 
KASSETTE SPEICHERN 


1170 PRINT#4,"Bitte Kassette einleg 

en, <REC/PLAY> und beliebige Taste 

druecken! 

1180 CALL &BB18 

1190 SPEED WRITE 1:0PENOUT "!Daten" 

1200 PRINT#9,nx 

1210 FOR i=1 TO nx 

1220 PRINT#9,x(i),y(i) 

1230 NEXT 

1240 CLOSEOUT:CLS#4:G0T0 520 

1250 REM 

1260 REM 

1270 REM 

1280 PRINT#3,"” TEN VON 

KASSETTE ADEN“"“ 

1290 PRINTf4,"Bitte Kassette einleg 

en, <PLAY> und beliebige Taste drue 

cken!" 

1300 CALL &BB18B 

1310 OPENIN "!Daten" 

1320 INPUT#9,nx 

1330 FOR i=1 TO nx 

1340 INPUT#9,x(i),y(i) 

1350 NEXT 

1360 CLOSEIN:CLS#4:G0T0 520 

1370 REM 

1380 REM Regressions-Menue 

1390 REM 

1400 PEN O:PAPER 1:LOCATE 1,1:PRINT 

” “nr * RE 

GRE SS TION 

“re ";:PEN 1:PAPER O 

1410 PRINT#3,” 1<-LINEAR 2<-EXPON 

ENTIELL 3<-LOGARITHM. 4<-POTENZ 

5<-AUTOM. 6<-DATENVERW."; 

1420 a$=INKEY$:IF a$="" THEN 1420 

1430 IF a$="1" OR a$="2" OR a$="3" 

OR a$="4" OR a$="5" THEN 1490 

1440 IF a$="6" THEN CLS#1:CL5#2:CLS 

#4:CL5#5:LOCATE 1,1:PRINT" ”* #8 
® DA TENVENR MW 

AL TDUNG ee 
";:60T0 520 

1450 GOTO 1420 

1460 REM 


Daten laden 


DA 
L 
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LISTING 


1470 
1480 
1490 
1500 
1510 
1520 
1530 


REM Beginn Regressionsrechnung 
REM 
regmod=VAL(a$) :sumx=0: sumy=D 
FOR i=1 TO nx 
sumx=sumx+x(i) :sumy=sumy+y(i) 
NEXT 
IF nx=D0 THEN LOCATE 1,1:PRINT" 
“or DA TE N V 
ER WAL TUNG “#8 
* "-:60T0 520 
1540 mwx=sumx/nx:mwy=sumy/nx 
1550 CLS#1:CL5#2:PRINT#1,"Wertepaar 
e: ":PAINT#2,nx 
1560 PRINT#1:PRINT#1,"x-Mittelwert: 
":PRINT#2:PRINT#2,mwx 
1570 PRINT#1:PRINT#1,"y-Mittelwert: 
":PRINT#2:PRINT#2,mwy 
1580 IF nx=1 THEN PRINT#5,"” Bei ein 
em Wertepaar keine Standardabweichu 
ng!":G0TO 520 ELSE qx=0O:qy=0 
1590 FOR i=1 TO nx 
1600 qx=qx+x(i)#x(i) :qy-raqytyli)*yli 
) 
1610 


NEXT 

1620 nenn=(nx*qx-sumx*sumx) 

1630 nstich=nx*#( nx-1) :sx=SQRA( nenn/n 

stich) :sy=SQAl (nx*qy-sumy*sumy) /nst 

ich) 

1640 PRINT#1:PRINT#1,"x-Standardabw 

eichung:":PRINT#2:PRINT#2,sx 

1650 PRINT#1:PRINT#1,"y-Standardabw 

eichung:":PRINT#2:PRINT#2,sy 

1660 xy=D 

1670 FOR i=1 TO nx 

1680 xy=xy+x(i)*y(i) 

1690 NEXT 

1700 REM 

1710 REM Verzweigung der Regr.arten 

1720 REM 

1730 ON regmod GOTD 1770,1930,2170, 

2420, 2660 

1740 REM 

1750 REM Lineare Regr 

1760 REM 

1770 IF nenn=D THEN 1890 

1780 steigung=(nx*xy-sumx*sumy) /nen 

n:abschnitt=( sumy*qx-sumx*xy) /nenn 

1790 IF sy=0O THEN r=SGN( steigung) ::I 

F r=-0 THEN r=1:6G0T0 1820 ELSE 1820 

1800 r=steigung#sx/sy 

1810 linkorr=r*r 

1820 IF regmod=5 THEN RETURN 

1830 PRINT#1:PRINT#1,"Steigung:":PR 

INT#2:PRINT#2,steigung :PRINT#1:PRIN 

T#1,"y-Achsenabschnitt:":PRINT#2:PR 

INT#2,abschnitt 

1840 PRINT#f4,"Die beste Naeherung i 

st:":PRINT#4," y = ";steigung;” *# x 
+ ";abschnitt 


1850 PRINT#A5," bei linearer Reg 


ression 

1860 PRINT#1:PRINT#1,"Korrelationsk 
oeffizient:":PRINT#2:PRINT#2,r 

1870 PRINT#1:PRINT#1,"quadr. Korrel 
ationskoeffizient:":PRINT#2:PRINT#2 


‚linkorr 

1880 GOTO 2780 

1890 PRINT#Z5," Keine lineare Aegres 
sion moeglich !":GOTO 278BO 

1900 REM 

1910 REM Exponentielle Regr 

1920 REM 

1930 i=1 

1940 1y=0:1yx=0O:1yqx=D:qly=D 

1950 WHILE y(li)>O AND i<=nx 

1960 1li=L0OG(y(li)):ly=ly+tli:qly=qly+t 


li#li:1lyx=1lyx+li#x(i):i=i+1 
1970 WEND 

1980 IF i-1<>nx THEN PRINT#5, "Bitte 
nur positive y-Werte fuer die expo 

nentielle Regression ! !";:GOTO 278 

0 

1990 IF nenn=D THEN 2130 

2000 a=( ly*qx-sumx*#lyx) /nenn:exvorf 

ak=EXP(a) :expofak=(nx*lyx-sumx#ly)/ 
nenn 

2010 IF sy=0 THEN korr=1:G60T0 2050 
2020 lyquad=1y*ly/nx:korrnenn=qly-1l 
yquad 

2030 IF korrnenn=D THEN 2130 

2040 expkorr=(a#lytexpofak#lyx-lyqu 

ad) /korrnenn 

2050 IF regmod=5 THEN RETURN 

2060 PRINT#1:PRINT#1,"Vorfaktor :": 

PRINT#2:PRINT#2,exvorfak 

2070 PRINT#1:PRINT#1,"Exponentenfak 

tor :":PRINT#2:PRINT#2,expofak 

2080 PRINT#1:PRINT#1,"Quadr. Korrel 

ationskoeff.:":PRINT#2:PRINT#2,expk 

orr 

2090 PRINT#4," Die beste Naeherung 

ist :" 

2100 PRINT#4," y[x)= ";exvorfak;"* 

expl ";expofak;” * x)" 

2110 PRINT#5,"” 

tieller Regression" 

2120 GOTO 2780 

2130 PRINT#5," Keine exponentielle 

Regression moeglich !":GOTO 2780 


bei exponen 


2140 REM 

2150 REM Logaritmische Regr 
2160 REM 

2170 i=1:1x=0:q1lx=0:1xy=0 


2180 WHILE x(i)>O AND i<=nx 

2190 1li=LOG( x(i)) :1x=1x+li:qlx=qlx+ 
1i#*l1i:1xy=1xy+li®*y(i):i=i+1 

2200 WEND 

2210 IF i-i<>nx THEN PRINT#5, "Bitte 
nur positive x-Werte fuer die loga 

rithmische Regression ! !";:6G0OTO 27 


81 


— 3 3 ee en 


LISTING 


80 

2220 
2230 
2240 
nenn 
2250 
2260 


lognenn=nx*qlx-1x*1x 
IF lognenn=O THEN 2380 
logkonst=( sumy*qlx-1x*1xy)/log 


IF sy=0O THEN korr=1:G60T0 2300 
logfak=(nx*lxy-sumy*1x)/lognen 
n 
2270 yq=sumy*sumy/nx:korrnenn=qy-yq 
2280 IF korrnenn=D THEN 2380 

2290 logkorr=( logkonst*sumy+logfak* 
lxy-yq)/korrnenn 

2300 IF regmod=5 THEN RETURN 

2310 PRINT#1:PRINT#1,"Konstante :": 
PRINT#2:PRINT#2,logkonst 

2320 PRINT#1:PRINT#1,"Logarithmusfa 
ktor :":PRINT#2:PRINT#2,logfak 

2330 PRINT#1:PRINT#1,"Quadr. Korrel 
ationskoeff.:":PRINT#2:PRINT#2,1logk 
orr 

2340 PRINT#4," Die beste Naeherung 
ist :" 

2350 PRINT#4," y(x)= ";logkonst;"+ 
":logfak;" * log(x)"” 
2360 PRINT#5," 

cher Regression" 
2370 GOTO 2780 

2380 PRINT#5," Keine log. 
n moeglich !":GOTO 2780 


bei logarithmis 


Regressio 


2390 REM 

2400 REM Potenzregression 

2410 REM 

2420 i=1 

2430 1x=0:1y=-0:1y1x=0O:qly=-O:qlx=D 


2440 WHILE y(i)>O AND i<=nx AND x(i 
J)>O 
2450 li=LO6G(y(li)):ly=ly+tli:qly=qly*+ 


1i*1i:1j=LOG(x(i)):1x=1x+lj:qglx=qlx 
+1j*1j:1lylx=1lylx+tli*1j:i=i+l 

2460 WEND 

2470 IF i-i<>nx THEN PRINTfS5,"Bitte 
nur positive x- und y-Werte fuer d 
ie Potenzregression ! !";:6D0TO 2780 
2480 potnenn=nx*qlx-1x*#1x 

2490 IF potnenn=D THEN 2620 

2500 a=(1ly*qlx-1x*1ylx)/potnenn:pot 
fak=EXP( a) :pexp=(nx*lylx-1y*1x)/pot 
nenn: lyquad=1y*ly/nx:korrnenn=qly-1 

yquad 

2510 IF sy=DO THEN r=1:G0T0 2540 
2520 IF korrnenn=O THEN 2620 

2530 potkorr=(a*ly+tpexp*lylx-lyquad 

)/korrnenn 

2540 IF regmod=5 THEN RETURN 

2550 PRINT#1:PRINT#1,"Vorfaktor :": 

PRINT#2:PRINT#2,potfak 

2560 PRINT#1:PRINT#1,"Exponent 

RINT#2:PRINT#2,pexp 

2570 PRINT#1:PRINT#1,"Quadr. Korrel 
ationskoeff.:":PRINT#2:PRINT#2,potk 


ep 


orT 
2580 PRINT#f4," Die beste Naeherung 
ist" 

2590 PRINT#4,” y(x)= ";potfak;"* x 
“ ";pexp 

2600 PRINT#S," 


ssion 
2610 GOTD 2780 
2620 PRINT#5," Keine Potenzregressi 


on moeglich !":GOTO 2780 
2630 REM 
2640 REM 
2650 REM 
2660 GOSUB 
2670 GOSUB 
2680 GOSUB 2170 

2690 GOSUB 2420 

2700 bestkorr=MAX( linkorr,expkorr,1 
ogkorr,potkorr) 

2710 IF bestkorr=linkorr 
d=1:G0TO 1830 

2720 IF bestkorr=-expkorr 
d=2:60T0 2060 

2730 IF bestkorr=logkorr 
d=3:60T0 2310 

2740 IF bestkorr=potkorr 
d=-4:G0T0 2550 

2750 REM 

2760 REM Regressionsend-Menue 

2770 REM 

2780 PRINT#3,"” 1<- GRAPHIK 2<- WE 
ITERE REGR. 3<- DATENVERWALTUNG 4 
<- ENDE z 
2790 a$=-INKEY$:IF a$="" THEN 2790 
2800 IF a$="1" THEN 2880 

2810 IF a$="2" THEN CLS#4:CL5#5:6G0T 
D 1410 

2820 IF a$="3" 


bei Potenzregre 


Autom. Regression 


1770 
1930 


THEN regmo 


THEN regmo 
THEN regmo 


THEN regmo 


THEN CLS#1:CL5#2:CL5S 


#5:CL5#4:LOCATE 1,1:PRINT" “#8 
* DA TEN VENR MW 

AL TDUNG LE 
";:G60T0 520 

2830 IF a$="4" THEN CLS:GOTO 3520 
2840 GOTO 2790 

2850 REM 

2860 REM Vorbereiten der Graphik 
2870 REM 


2880 minx=MIN(x(1),x(2)) :maxx=MAX( x 
(1),x(2)) :miny=MIN( y(1),y(2)):maxy= 
MAXCyC1),y(2)):IF nx=2 THEN 2920 
2890 FOR i=1 TO nx 

2900 maxx=MAX( x(i) ,maxx) :minx=MIN( x 
(i) ,‚minx) :maxy=MAX( y(i) ‚,‚maxy) :miny= 
MIN{( yli),miny) 

2910 NEXT 

2920 xx=maxx-minx:yy=maxy-miny 

2930 IF xx=0 OR yy=0O THEN PRINT#5," 
Keine sinnvolle Graphik moeglich !" 
:GOTO 2780 

2940 CLS#1:CL5#2:LOCATE 1,1 


82 


LISTING 


2950 PRINT STRING$( 160," ") 

2960 FOR k=3 TO 20 

2970 LOCATE 1,k:PRINT” ":LOCATE 39, 
k:PRINT ” ";:LOCATE 80,k:PRINT "” "; 
2980 NEXT 

2990 LOCATE 1,21:PRINT STRING$( 80," 


3000 PRINT#3,"” “RK 
GRAPH IK 
Eu ” 
3010 REM 
3020 REM Graphik-Rahmen plotten 
3030 REM 
3040 PLOT 240,85:DRAW 240,399:DRAW 


638, 399:DRAW 638,85:DRAW 240,85 
3050 x1=(0-minx) /xx#*399+240:y1=( D-m 
iny)/yy*300+90 

3060 IF minx<=D AND maxx>=D THEN PL 
OT x1,90:DRAW x1,390 

3070 IF miny<=D0 AND maxy>=D THEN PL 
DT 240,y1:DRAW 639,y1 

3080 LOCATE 30,21:PRINT USING"AH.AHH 


2 LER 7 
HH.BBTO";minx,minx+txx/2,maxx; :L 
OCATE 21,1:PRINT USING"#4.#4#° "0" ;m 


axy:LOCATE 21,20:PRINT USING" AH .AH” 
">" -miny:LOCATE 21, 10:PRINT USING" 
HH AHHTO0" ;minytyy/2 

3090 REM 

3100 REM Messwerte plotten 

3110 REM 

3120 ORIGIN 240,90 

3130 FOR i=1 TO nx 

3140 x=x(i):y=-yl(i) 

3150 x1=( x-minx) /xx*399:y1=( y-miny) 
/yy*300:IF (x1>=D AND y1>=D0) THEN M 
OVE x1+1,y1:DRAWR -3,0:MOVER 1,2:DR 
AWA 0,-4 

3160 NEXT 

3170 x=minx:dis=xx/200 

3180 REM 

3190 REM Plotten der Regressionskur 
ven *# 

3200 REM 

3210 FOR k=1 TO 200 

3220 ON regmod GOSUB 3310,3320, 3330 
‚3340 

3230 x1=( x-minx) /xx*399:y1=( y-miny) 
/yy*300:IF (x1>=0 AND y1>=D) THEN P 
LOT x1,y1 

3240 x=x+dis 

3250 NEXT 

3260 GOTO 3350 

3270 REM 

3280 REM Berechnung der Werte 

3290 
3300 
3310 
3320 
AN 


REM 
y=x*steigung+tabschnitt: RETURN 
y-exvorfak*EXP(expofak*x) :RETU 


3330 y=logkonst+logfak*LOG( x) :RETUR 
N 

3340 y=potfak*x”"pexp:RETURN 

3350 ORIGIN 0,0 

3360 REM 

3370 REM End - Menue 

3380 REM 

3390 PRINT#3,"1<-WEITERE REGR. 2<- 
DATENVERWALTUNG 3<-GRAPHIK AUF KAS 
SETTE SPEICHERN A<-ENDE"; 

3400 a$=INKEY$:IF a$="" THEN 3400 


3410 IF a$="1" 


0OTO 1400 
3420 
3430 
3440 
3450 
3460 
3470 
3480 
3490 


gen, 


REM 


REM 


druecken 


IF a$="2" 
IF a$="3" 
IF a$="4" 
GOTO 3400 


THEN CLS5:605UB 420:6 


THEN 360 
THEN 3490 
THEN CLS:GOTO 3520 


REN Speichern der Graphik 


PRINT#3," Bitte Kassette einle 
<REC/PLAY> und beliebige Taste 


3500 CALL &8BB18:5PEED WRITE 1:S5AVE" 
!Regression"”,b,&C000,&3FFF 
3510 GOTO 3390 


3520 KEY DEF 39,1,44: 


Variablenliste 


END 


a$, x$, w$ Eingabevariablen 

x(dimen) Datenfelder 

e Ende-Flag für die Dateneingabe 

I. j.-K Schleifenvariablen 

nx Anzahl der Wertpaare 

nummer Nummer des zu ändernden Daten- 
paares 

regmod Regressionsmodus 


sumx, sumy 
mwx, mwy 
nenn 


Summe der x- und y-Werte 
Mittelwerte der x- und y-Werte 
Nenner für die lineare Regression 


korrnenn Nenner des Korrelationskoeffizienten 

nstich Meßwertanzahl der Stichproben 

SsX, Sy Standardabweichung der x- und 
y-Werte 

Tr Korrelationskoeffizient der linearen 
Regression 


linkorr, usw. 


Korrelationskoeffizient der jeweili- 
gen Regressionsart 


steigung Funktionsparameter der linearen 
Regression 

abschnitt wie vor 

Ih, Ii logarithmierte x- und y-Werte 

lx, Iy Summe der log. Werte 

lylx Summe der Produkte der log. x- und 
y-Werte 

qalx, qly Summe der Quadrate der log. x- und 
y-Werte 

lognenn Nenner für logarithmische Regression 

minx, maxx Minimale und maximale Meßwerte 

xX, Yy Differenz der extremen x- und 
y-Werte 

x1; yl Plotterkoordinaten 

x, y Aktuelle zu plottende Werte 

dis Schrittweite für den Funktionsplott 

a, Iyquad Zwischengrößen 


LISTING 


(CPC 464 / CPC 664 / CPC 6128) 


Gerade in der Computerszene gibt es viele kleinere 
Geschäftsleute, etwa jene Programmierer, die ihre 
Software selbst vertreiben, welche ein geeignetes 
Programm suchen, das ihnen die Aufgabe der Be- 
legführung abnimmt, um ordnungsgemäß mit dem 
Finanzamt abrechnen zu können. Aber auch alle 
anderen, die auf irgendeine Art und Weise gefordert 
sind, Ein- und Ausgaben nachzuweisen, dürften mit 
dem ‚„Kassenbuch“-Programm von Günter Schmidt 
auf das Beste bedient sein. 


Leistungsfähigkeit 

Für das Kassenbuch wurde eine tägliche Abrechnung 
mit laufender Belegnummer, die Übernahme des Be- 
trages des Vortages und fortlaufender Numerierung 
der Kassenbuchseiten gefordert. Der Ausdruck der 
Kassenbuchseiten sollte weitgehend dem Original 
entsprechen. 


Ladeprogramm 

Da das ‚„‚Kassenbuch“ zu Beginn jeder Arbeitssitzung 
die Übernahme der bisherigen Seiten fordert, wurde 
ein kurzes Ladeprogramm entwickelt, das die Erstan- 
wendung ermöglicht. Dabei werden Daten als 
“KASSE.DAT“ abgespeichert und das Hauptpro- 
gramm “KASSE.BAS“ nachgeladen. 

Achten Sie also unbedingt darauf, daß der Hauptteil 
unter diesem Namen abgespeichert wurde. Für die 
weitere Benutzung wird das Ladeprogramm nicht 
mehr benötigt. 


Hauptprogramm 

Nach dem Start mit RUN “KASSE“ wird auf die Ein- 
gabe des Tagesdatums (als Ziffer) und des Monates 
(als Buchstaben) gewartet, beides ist für den Ausdruck 
der Kassenbuchseite notwendig. 

Die Daten von “KASSE.DAT“ werden eingelesen und 
der Bildschirm aufgebaut. Es werden 7 Windows fest- 
gelegt, wobei Fenster #1 nicht unbedingt notwendig 
ist, da beim Arbeiten auf Bildschirmwechsel verzich- 
tet wurde. Nach dem Start befindet man sich im Me- 
nüpunkt Einnahmen, sichtbar durch einen Balken. 

In das Menü kommt man in der Option Texteingabe, 
indem man statt eines Textes nur die ENTER-Taste be- 
tätigt. Die inverse Schrift “Menue‘“ weist auf die ein- 
geschalteten Auswahlmöglichkeiten hin. Mit den Cur- 
sortasten (Pfeil hoch, Pfeil runter) werden die einzel- 
nen Menüpunkte angewählt, wobei der Balken mit- 
wandert. Gegen ein unbeabsichtigtes ‚‚Programmende“ 
ist man durch die Option „Korrektur“ geschützt. Bei 
der Anwahl dieser Rettung kann man durch die Taste 
“Z“ in das normale Auswahlverfahren zurückkehren. 
Das Menü selbst verläßt man mit der ENTER-Taste. 
Bei der Texteingabe sind bis zu 50 Zeichen möglich, 
Beträge dürfen die Höhe von 99999,99 DM nicht über- 
schreiten. Im Hilfswindow #6 sind immer die letzten 

5 Einträge sichtbar. In diesem Bildschirmausschnitt 
wird auch eine eventuelle Korrektur vorgenommen. 
Eine der 33 möglichen Kassenbuchseiten bietet Platz 
für 30 Einträge. Werden weniger Einträge geleistet, 


DAS SUPER- 


KASSENBUCH 


Das informative Menü des Kassenbuch-Programmes 


wird nach dem Anwählen von „Programmende“ der 
neue Bestand und die Kassenbuchseite abgespeichert 
und der Anwender aufgefordert, den Drucker einzu- 
schalten und das Papier in Position zu bringen. Da- 
nach kommt zur Erinnerung die Reihenfolge zum 
Abschalten der Hardware. 

Bei mehr als 30 Einträgen pro Tag (max. 1000, ca. 

33 Kassenbuchseiten) beginnt das Programm erneut 
mit fortlaufender Belegnummer und Kassenbuchseite, 
das Datum wird beibehalten. 
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gso,y>Bun— 


LISTING 


ASSEN-BUCH! 


10 MODE 2:INK 0,0:INK 1,26:BORDER 0 


seite Nr.: 15 


HEHE RR HR 


a LADEPROGRAMM * 
x FUER ERSTANWENDUNG * 
» VON #* 
a GUENTER SCHMIDT * 
ER FUER * 
er SCHNEIDER AKTIV * 
a CPC 464/664/6128 je* 


FHHEHHHRHHEHHEHETEERUEHERHREHERENR 
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20 PRINT CHR$( 24) ;" KASSENBUCH 


UEBERNAHME IN DEN RECHNER 


24) 
30 DRAW 0,379:DRAW 639,379:DRAW 639 


"-CHRA$( 


‚0:DRAW 0,0 


80 LOCATE 10, 13:PRINT CHR$(24);"” Ka 


". CHR$( 24) 


40 LOCATE 10,5:PRINT"Bitte geben 5i 
e folgende Werte aus dem Kasssenbuc 
h ein:" 

5D LOCATE 10,10:PRINT CHR$( 24) ;" 


60 LOCATE 10,11:PRINT CHR$(24) ;"” Ne 


uer Bestand : ";CHR$( 24) 
70 LOCATE 10,12:PRINT CHRA$( 24) ;" 


";CHR$L24) ;" --- 


ssenbuchseite : ";CHRA$( 24) 


90 LOCATE 10,14:PRINT CHR$( 24) ;" 


";CHR$( 24) ;" -—- 


100 LDCATE 35, 11:INPUT betragneu 


110 


LOCATE 35, 13:INPUT seite 


120 LOCATE 10,16:PRINT betragneu;"D 


Seite"”;seite 


130 LOCATE 5,19:PRINT CHRA$( 24) ;" 


;CHA$( 24) 


140 LOCATE 
nen Moment 
espeichert und das 


; CHR$( 24) 
150 LOCATE 5,21:PRINT CHA$( 24) ;" 


; CHA$( 24) 


160 


LOCATE 5,22:PRINT CHR$( 24) ;" 


ogramm KASSE wird geladen. 


;CHR$( 24) 


170 


LOCATE 5,23:PRINT CHRA$( 24) ;" 


;CHA$( 24) 


180 
190 


200 
210 
220 
230 


DPENOUT"kasse.dat" 
PRINT#9, seite 


PRINT#9,betragneu 
ECLOSEOUT 


RUN"kasse" 
END 


5,20:PRINT CHR$(24);" Ei 
bitte,die Datei wird abg 


Pr 


LISTING 


1. RBRRRHRRRREREREISSSIESESTSSESESESESENESESERE 
2 ’# KASSENBUCH ® 
3 # VON * 
4a '* GUENTER SCHMIDT * 
5 ’# FUER * 
6 '* SCHNEIDER AKTIV * 
7 A CPC 464/664/6128 je* 
ze 5 € = 2.2.2 5.2 22 022 2 202020202 02222 2 220202020202 


10 OPENOUT "dummy" 

20 MEMORY HIMEM--1 

30 CLOSEOUT 

90 DIM ein( 1000) :DIM aus( 1000) :DIM 
text$( 1000) :zeile=11:neu=0 

100 MODE 2:INK 0,0:INK 1,26:BORDER 
0 

110 DRAW 0,379:DRAW 639, 
9,0:DRAW 0,0 

120 WINDOW#1,1,80,1,1:WINDOW#2,8,58 
‚5,7:WINDOW#3,60,68,5,7:WINDOW#4,70 
‚78,5,7:WINDOW45,2,6,5,7:WINDOW#6,2 
‚79,19,23:WINDOW#7,2,79,25,25 
130 PRINT#1,"” ";CHR$(24) ;" 
BUCH 


379:DRAW 63 


KASSEN 


;CHR$( 24) 
140 IF neu=1 THEN 230 

150 LOCATE 10,5:PRINT"Geben Sie bit 
te folgende Daten ein:" 

160 LOCATE 10, 10:PRINT CHR$( 24) ;" 

j "-CHRA$L24A 
170 LOCATE 
er heutige 
) 

180 LOCATE 


10,11:PRINT CHR$(24);" D 
Tag (z.B. 12): ";CHA$(24 


10,12:PRINT CHR$( 24) ;" 
";CHR$(24 


> 
190 LOCATE 
en Monat : 
) 
200 


10,13:PRINT CHR$(24),;," D 

"-CHR$( 24 

LOCATE 10,14:PRINT CHR$( 24) ;" 
"=CHR$( 24 

57 a a a a a a a a a u a a an a a u - 

210 LOCATE 40,11:INPUT heute 

220 LOCATE 40, 13: INPUT monat$ 

230 LOCATE 10,18:PRINT heute 

240 LOCATE 13,18:PRINT".";monat$;" 

1987" 

250 LOCATE 13,22:PRINT CHR$(24);"” M 

oment bitte - der alte Bestand wird 

ER lagen: ; CHA$( 24) 

260 ’---------- DATEI LADEN 

270 

280 

290 

300 


DPENIN "kasse.dat" 

INPUT#9, seite 

INPUT#9,betragneu 

CLOSEIN 

310 CLS:seite=seite+]l 

320 bestandalt=betragneu:betragneu* 
O:betragein=D:betragsum-U:betragaus 


=D 

330 GOSUB 460:605UB 1000 

340 z=1 

350 ’---------- EINGABE ---------- 
360 beleg-beleg+1:LOGATE#5,1,2:PRIN 
T45,beleg 


370 zaehler=zaehler+1 

380 CLS#2:CLS#3:CLS#4:L0OCATE#2,1,2: 

LINE IN UTA2, text$(beleg) 

390 IF text$(beleg)="" THEN GOSUB 8 
00:G0T0 3B0O 

400 IF z=1 THEN aus(beleg) =0:LOCATE 
#3,1,2:INPUT#3,ein({beleg) :betragein 
=betragein+tein(beleg) 

410 IF z=2 THEN ein(beleg) =0:LOCATE 
#4,1,2:INPUT#f4,aus(beleg) :betragaus 
=betragaus+taus( beleg) 

420 GDSUB 950:G605UB 1000 

430 IF zaehler=-30 THEN CLS5#6:PRINT# 
6," KASSENBUCHSEITE VOLL,BITTE WAEH 
LEN SIE ";CHR$C24) ;"” PROGRAMMENDE " 
;CHR$( 24) 

440 GOTO 350 

450 BILDSCHIRMAUFBAU --- 


460 FRINT#1,CHR$( 24) ;"” KASSENBUCH 
";CH 
A$L 24) 
470 DRAW 0,379:DRAW 639,379:DRAW 63 
9,0:DRAW 0,0 
480 LOCATE 2,4:PRINT" Nr. 
490 LOCATE#1,20, 1:PRINT#1,CHR$( 24); 
;heute:LOCATE#1,23,1: PRINT#1,".";mo 
nat$; ” 1987" ;CHA$L 24) 
500 LOCATEA41,50,1: PRINT#1, CHR$( 24); 
"Kasse snbuchselte Nr. seite; CHR$(2 
4) 
510 PAPER#2,1:PEN#2,0:CL5#2:PAPER#3 
‚1:PEN#3,0:C1L5#3:PAPER#4,1:PEN#4,0: 
CLS#4:PAPER#5,1:PEN#5,0:CL5#5:PAPER 
#6,1:PEN#6,0:CL5#6:PAPER$#7,0:PEN#?, 
1:C1.5#7 
520 LOCATE 2,3:PRINT"Beleg 
Text 
Einnahmen Ausgaben 


530 LOCGATE 44,9:PRINT"Summe Einahme 
Di.“ 

540 LOCATE 42,10:PRINT"”+ Alter Best 
and :" 

550 LOCATE 44, 11:PRINT"------------ 
560 LOCATE 42,12:PRINT"= Summe 

570 LOCATE 44, 13:PRINT"============ 
5B0 LOCATE 42, 14:PRINT"”- Ausgaben 
590 LOCATE 44, 15:PRINT"------------ 


| LISTING | 


LOCATE 42,16:PRINT"= Neuer Best 
and :" 
LOCATE 44, 17:PRINT"============ 


620 LOCATE 2,8:PRINT CHR$( 150) ; :FOR 
i=1 TO 37:PRINT CHRA$( 154) ; :NEXT:PR 
INT CHR$( 156) 

630 LOCATE 2,9:PRINT CHRA$( 149) ; :FOR 
i=1 TO 37:PRINT" "”;:NEXT:PRINT CHA 
$( 149) 

640 LOCATE 2,10:PRINT CHR$( 151); :FO 
R i=1 TO 37:PRINT CHR$( 154) ; :NEXT:P 

RINT CHR$C 157) 

650 LOCATE 2,11:PRINT CHR$( 149) ;:FO 
A i=1 TO 37:PRINT"” ";:NEXT:PRINT CH 
A$( 149) 

660 LDCATE 2, 12:PRINT CHR$( 151); :FO 
RAR i=1 TO 37:PRINT CHR$( 154) ; :NEXT:P 

AINT CHR$( 157) 

670 LOCATE 2,13:PRINT CHR$( 149) ;:FO 
AR i=1 TO 37:PRINT"” "; :NEXT:PRINT CH 
A$( 149) 

680 LOCATE 2,14:PRINT CHRA$(C 151); :FO 
A i=1 TO 37:PRINT CHR$( 154) ; :NEXT:P 

ARINT CHR$( 157) 

690 LOCATE 2, 15:PRINT CHRA$( 149); :FO 
AR i=1 TO 37:PRINT” ";:NEXT:PRINT CH 

A$( 149) 

700 LOCATE 2,16:PRINT CHR$( 151) ;:FO 
AR i=1 TO 37:PRINT CHR$( 154) ; :NEXT:P 

RINT CHR$( 157) 

710 LOCATE 2,17:PRINT CHR$( 149) ;:FO 

A i=1 TO 37:PRINT"” "; :NEXT:PRINT CH 

R$( 149) 

720 LOCATE 2,18:PRINT CHR$( 147) ;:FO 

AR i=1 TO 37:PRINT CHR$( 154) ; :NEXT:P 

RINT CHR$( 153) 

730 LOCATE 15,9:PRINT"M E N U E" 

740 LOCATE 4,11:PRINT CHR$( 24) ;"” 

EINNAHMEN "sc 

HR$C 24) 

750 LOCATE 10,13:PRINT"AUSGAB 
E N" 

760 LOCATE 10,15:PRINT"KORREK 
TUR” 

770 LOCATE 10,17:PRINT"PROGRA 
MMEND E" 

780 CLS#7:LOCATE#7,1,25:PARINT#7," M 

ENUE-EIN ";CHR$(24);" Texteingabe=E 

NTER ";CHR$(?4) ;" MENUEPUNKTE ";CHR 

$(24);" Taste bzw ";CHRA$L241);" " 
;CHR$( 24) ;" MENUE-AUS ";CHA$(24) ;" 

ENTER ";CHR$( 24) 


790 RETURN 
800 "---------- MENUE EINGABEN ---- 
810 LOCATE 14,9:PRINT CHA$(24);" M 


e-2:IF zeile <11 THEN zeile=11 

840 IF a$ß=-CHA$( 241) THEN zeile-zeil 
e+t2:IF zeile >17 THEN zeile=11] 

850 IF zeile-11 THEN LOCGATE 4,11:PR 
INT CHR$( 24) ;" EINNAHM 

E N "-CHR$(24) ELSE LOCAT 
E 4,11:PRINT"” EINNAHME 


880 IF zeile=13 THEN LOCATE 4,13:PR 
INT CHRA$( 24) ;” AUSGABE 
N ":CHRA$( 24) ELSE LOCAT 
E 4,13:PRINT" AUSGABEN 
870 IF zeile=-15 THEN LOCATE 4,15:PR 
INT CHR$( 24) ;" KORREKT 
uUR ”":CHR$(24) ELSE LOCAT 
E 4,15:PRINT" KORREKTU 
R „ 
880 IF zeile=-17 THEN LOCATE 4,17:PR 
INT CHR$( 24) ;" PROGRAM 
MENDE "=CHRA$( 24) ELSE LOCAT 
E 4, 17:PRINT" FROGRAMM 
ENDE “= 
890 IF zeile=11 THEN 
900 IF zeile=13 THEN 
910 IF zeile=15 THEN GOTO 1090 
920 IF zeile=17 THEN GOTD 1450 
930 IF a$=CHR$( 13) THEN LOCATE 14,9 
:PRINT" M EN U E ":RETURN 
940 GOTO 820 
950: === === 5 


z=1 
z=2 


AUSGABE WINDOW#6 -- 
960 PRINT#6,beleg; :PRINT#6,TAB(8);t 
ext$(beleg); 

970 IF z=1 THEN PRINT#6,TAB(59) USI 
NG "HHHHH. HH” ;einlbeleg) 

980 IF z=2 THEN PRINTA#6,TAB(69) USI 
NG "HAHHHH.HH" ;aus(beleg) 

990 RETURN 

1,0900. "=>>>-57-> 
1010 LOCATE 64,9:PRINT USING "AHHHH 
#4” ;betragein 

1020 LOCATE 64, 10:PRINT USING 
#A.-#4” ;bestandalt 

1030 betragsum=bestandalt+betragein 
1040 LOCATE 64, 12:PRINT USING "AHHH 
#.44#”" ;betragsum 

1050 LOCATE 64, 14:PRINT USING "AHHH 
4.44" ;betragaus 

1060 betragneu=betragsum-betragaus 
1070 LOGATE 64,16:PRINT USING "AHHH 
#.#4” ;betragneu 
1080 RETURN 

1090 *°---------- 
UR --------- 
1100 CLS#6 


AUSGABE BETRAEGE - 


"ARRH 


MENUEPUNKT KORREKT 


EN U E ";CHRA$(24) 1110 CLS#7:LOCATE#7,1,25:PRINT#7,CH 
820 a$=INKEY$:IF a$="" THEN 820 RA$(24);" KORREKTUR 
830 IF a$=CHR$( 240) THEN zeile=zeil "-CHA$(24);" WEITER ";CHRA$(24) 39 
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;" ENTER ";CHR$(24);" K ";CHR$(24); 
"“ Korrektur ";CHR$(24);" Z ";CHR$C2 
4);" Zurueck ":CHR$( 24) 

1120 kor=kor+i1 

1130 PRINT#6,kor; :PRINT#6, TAB(B);te 


xt$(kor); 

1140 IF ein(kor)=DO THEN PRINT#6,TAB 
(69) USING "H4uHB.HH” ;aus(kor) 

1150 IF aus(kor)=0O THEN PRINT#6,TAB 
(59) USING "AHHHk #4” ;einlkor) 

1160 IF kor=beleg-1 THEN PRINT#6,CH 
A$(24);" Ende der Eingaben ! ";CHR 


$( 24) :GOTO 1170 

1170 a$=INKEY$:IF a$="" THEN 1170 

1180 IF a$="k" OR a$="K” THEN 1220 

1190 IF a$="z"” OR a$="Z" THEN kor=0 

:zeile=-15:CL5#6:LDCATE 2,23:G0SUB 7 

80:G0T0O 800 

1200 IF kor=beleg-1 THEN 1170 

1210 GOTO 1120 

1220 "=>>5=--- -- KORREKTUR 

1230 INPUT#7,"Welche Belegnummer:", 

benum 

1240 PRINT#7,"Welche Korrektur => T 
= Text - => E <= Einnahmen - => A 
<= Ausgaben" 

1250 a$=INKEY$:IF a$="" THEN 1250 

1260 IF a$="t" OR a$="T"” THEN PRINT 

#6:PRINT#6," alt ----- >:";text$(ben 

um) :PRINT#6,” neu ----- >:";:LINE IN 

PUT#6,text$(benum) :G0OTO 1310 

1270 IF a$="a" OR a$="A" THEN PRINT 

#6,” alt ----- >:"; :PRINT#6,aus(benu 

m) :PRINT#6," neu "-zein(benu 

m) =0:INPUT#6, aus(benum) :G60T0 1310 

1280 IF a$="e"” OR a$="E"” THEN PRINT 

#6," alt ----- >:"; :PRINT#6,ein(benu 

m) :PRINT#6,” neu :"; zaus(benu 

m) =0:INPUT#6,ein(benum) :G0TO 1310 

1290 IF a$<>"t” OR a$<>"T" OR a$<>" 

a” OR a$<>"A" OR a$<>"e" OR a$<>"E" 
THEN GOSUB 1430:60T0 1250 

1300 GOTO 1250 

13109. 72er 

E BERECHNUNG 

1320 betragein=0:betragaus=O 

1330 CLS#7:PRINT#?,"”------ 770000 

MOMENT BITTE 

1340 FOR i=1 TO beleg-1 

1350 betragein=betrageinteinl(i) 


1360 betragaus=-betragaustausl(i) 
1370 PRINT#6,i;:PRINT#6,TAB(B) ;text 
$(i); 


1380 IF ein(i)=O THEN PRINT#6,TAB(6 
9) USING "AAHHH. HH" ;ausli) 

1390 IF aus(i)=O THEN PRINT#6,TAB(5 
9) USING "AHHAHH.#4” ;einli) 

1400 NEXT:i=O 

1410 GOSUB 1000 


1420 kor=-0:zeile=11:605UB 1440:60SU 
B 780:G60T0 830 

1430 "---------- PIEPS 
1440 SOUND 1,50, 14,7:RETURN 


1450. 7752537777 PROGRAMM BEENDEN - 
1460 CLS#6:LOCATE#6,2,2:PRINT#6,CHR 
ee -- MOMENT BITTE - 
- D TENSICHERUNG -- %; 
CHRA$( 24) 

1470 GOSUB 1430 

1480: We-S 3 DATENSICHERUNG --- 
1490 OPENOUT"kasse.dat” 


PRINTZ9, seite 
PRINT#9,betragneu 

CLOSEOUT 

DRUCK KASSENBUCHSE 


"- CHA$( 24) 


"- CHR$( 24) 
1560 PRINT" ";CHR$( 2A) 
;" Daten wurden auf Diskette gespe 
ichert. "-CHR$( 24) 


1570 PRINT" 


"- CHA$( 24) 


? 
";CHR$( 24) 

1580 PRINT:PRINT"Bitte den Drucker 
einschalten,Papier in Position brin 
gen.” 

1590 PRINT:PRINT" Fertig = 
==> Taste ";CHR$(24);" ENTER ns 
CHR$( 24) 

1600 CALL &BBO6 

1610 PRINT:PRINT:PRINT" 

";CHR$( 24) ;" 
"CHRA$( 24) 

1620 PRINT" 2; 
CHR$( 24) ;" DRUCK... 
";CHR$( 24) 

1630 PRINT" 2 
CHR$( 24) ;" 

";CHR$( 24) 

1640 IF neu=1 THEN belegalt=belegal 
t+30 

1650 GOSUB 1730 

1660 IF zaehler >=30 THEN zaehler=0 
:neu=1:seite=seite+1:beleg=beleg-1: 
CLS:GOTO 100 

1670 PRINT:PRINT:FOR 
T" _"; NEXT 

1680 PRINT: PRINT:PRINT:PRINT"” 1. Bi 
tte nehmen Sie die Diskette aus dem 
Laufwerk." 

1690 PRINT:PRINT"” 2. Schalten Sie d 
en Rechner aus,dann den Monitor,das 
Laufwerk und den Drucker." 
1700 PRINT:PRINT" 


i=1 TO 79:PRIN 


Bitte d 
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ie Reihenfolge beachten.” 

1710 PRINT:PRINT:FOR i=1 TO 79:PRIN 
T"_"; :2NEXT 

1720 CALL &BBO6 

1730 "Druckerausgabe 

1740 PRINT#8,CHR$( 27) ;"W";CHR$U 1); 
1750 PRINTf#8,CHR$( 27) ;"E"; 

1760 PRINT#8,TAB( 14) ; "Kassenbuch" 
1770 PRINT#B,TAB( 35) ; seite; CHR$( 20) 


’ 

1780 PRINT#B,CHR$( 27) ;"W";CHR$(O); 

1790 PRINT#8,TAB( 20) ;"Monat ";mon 

at$; TAB( 40) ;" 1987" 

1800 PRINT#B,CHR$( 27) ;"F";CHR$( 10); 

*zeichenhervorhebung aus 

1810 GOSUB 2200 

1820 FOR i=1 TO 77:PRINT#8,CHR$( 233 

); :NEXT 

1830 GOSUB 2220 

1840 GOSUB 2270 

1850 PARINT#8,"Beleg 
Text 


Dat 


Einnahmen 
" 


Ausgaben 
1860 PARINT#8,"” Nr. 


einschl.Um 
s.-Steuer " 
1870 PRINT#8,CHR$( 27) ;"1"; 
1880 GOSUB 2230 
1890 IF neu=1 THEN FOR dr=belegalt+ 
1 TO beleg-1 
1900 IF neu=D0 THEN FOR dr=1 TO bele 
g-1 
1910 
1920 
te; 
1930 PRINT#8,TAB( 23) ;text$(dr); 
1940 IF ein(dr)=O THEN PRINT#8," "; 
:G0TDO 1970 
1950 PARINT#8,TAB(81) ;USING "HHHHH.H 
#" ;ein(dr); 
1960 IF aus(dr)=D THEN PRINT#8,"” "”: 
GOTO 1980 
1970 PRINT#8,TAB( 93) ;USING "HHHHH.H 


PRINT#8,TAB(4) ;USING "#4" ;dr; 
PRINT#8B,TAB( 12) ;USING "##";heu 


#" ;aus(dr) 
1980 GOSUB 2230 
1990 IF neu=D0 THEN NEXT 


IF neu=1 THEN NEXT 
PRINT#8:PRINT#8 

IF neu=1 THEN FOR rest=dr-bele 
TO 30 

IF neu=0 THEN FOR rest=dr TO 3 


2000 
2010 
2020 
galt 
2030 
DO 

2040 
2050 
2060 
2070 
NT#8 
2080 


GOSUB 2230: PRINT#8:PRINT#8B 
IF neu=D THEN NEXT 
IF neu=1 THEN NEXT 
PRINT#8, CHA$( 27) ;CHRA$( 69) ; :PRI 


PRINT#8,TAB(40) ;"Summe der Ein 


nahmen: ";:PRINT#8,USING "HAHHHH. HH" 
;‚betragein 
2090 PRINT#8 


2100 PRINT#8,TAB(40);"” + Alter B 
estand: ";:PRINT#8,USING "HHHHH. HH" 
;bestandalt 

2110 PRINT#8, TAB( AD) ;" ee ek: 
2120 PRINT#8,TAB(40);"” 

Summe: ";:PRINT#8,USING "AHHHH.BH" 


;‚betragsum 

2130 PRINT#B 

2140 PRINT#8,TAB(40);" - Au 
sgaben: ";:PRINT#B,USING "AHHHH. HH" 
;betragaus 


2160 PRINT#8,TAB(40);” 
estand: "”; :PRINT#8,USING 
;‚betragneu 


Neuer B 


2170 PRINT#8B,TAB( 40) ;"============= 
2180 RETURN 

2.190" 7 See GRAPHIK EIN ----- 
2200 PRINT#B,CHR$( 27) ;CHR$(61) ; :RET 
URN 

2210 ?.=2=>>==5#7> GRAPHIK AUS ----- 
2220 PRINT#8,CHRA$(D) ;CHR$( 10) ; :RETU 
AN 

2230 GOSUB 2200 

2240 * =+--+-5- 5. - GRAPHIKZEICHEN -- 
2250 FOR i=1 TO 6:PRINT#8,CHR$( 154) 


;:NEXT:PRINT#8,CHR$( 159) ;:FOR i=1 T 
O 11:PARINT#8,CHR$( 154) ; :NEXT:PRINT# 
8,CHR$( 159) ;:FOR i=1 TO 59:PRINT#B, 
CHR$( 154) ; :NEXT:PRINT#8,CHR$( 159) ;: 
FOR i=1 TO 11:PRINT#8,CHRA$( 154) ; :NE 
XT:PRINT#8,CHR$( 159) ; 

2260 FOR i=1 TO 11:PRINT#8,CHR$( 154 
) ; :NEXT:PRINT#8,CHR$( 159) ; :FOR i=1 

TO 25:PRINT#8,CHR$( 154) ; :NEXT:GOSUB 
2220:RETURN 

2270 
G EIN 


ZEICHENVERDICHTUN 


URN 


G AUS 


URN 


URN 


ZEICHENHERVORHEBU 
NG AUS 


2340 PRINT#B,CHR$( 27) ;CHR$( 70) ;:RET 39 


URN 
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CPC UNIVERSALDATEI 


“CPCDAT“ ist ein universelles Dateiverwaltungspro- 
gramm für alle CPCs mit Floppylaufwerk, bietet je- 
doch gegenüber herkömmlichen Dateiverwaltungen 
zwei entscheidende Vorteile: 

Der Umfang der Datei wird nur durch die Kapazität 


des Diskettenlaufwerkes begrenzt, beim Anlegen einer 


Datei muß keine Maximalzahl der Datensätze angege- 
ben werden. Erreicht wird dies durch Ablage der Da- 
tei in einem reservierten Speicherbereich von 20000 

Bytes. Ist der Bereich mit Daten gefüllt, speichert das 


‚MUSIK 

Datensaetze:-. 29 

Filet. E 
13-1..8 3-45. 
DATENSATZNR: 
1. INTERPRET 
&, TITEL 3 

3, ERSCH,-JAHR 1966 
4, DAUER 1) 
5. LP-/CH55.-HR 
6, BANDZAEHLN. .... 
?, QUALITAET + 


Datei: 


(2) 
Et 


a | DEE Eh 


Programm die Daten ab und legt ein weiteres Daten- 
file an. Die Datei erweitert sich also automatisch. 
Der Benutzer muß sich nicht um die verschiedenen 
Datenfiles kümmern, denn das Programm lädt sich 
selbst das jeweils benötigte File. Durch dieses Verfah- 
ren werden die im Speicherbereich der Hobby-An- 
wendung in der Mehrzahl vorkommenden Dateien 
bis 20000 Bytes komplett im Speicher gehalten und 
können im Direktzugriff schneller bearbeitet wer- 
den als bei relativen Disketten-Dateiverwaltungen. 
Andererseits besteht die Möglichkeit, auch sehr um- 
fangreiche Dateien zu verwalten, was mit Program- 
men, die für Dateien nur die freie RAM-Kapazität 
des Rechners nutzen, nicht möglich ist. 

Das Programm unterstützt neben der Ausgabe kom- 
pletter Datensätze auch die Ausgabe von Daten in 
Listenform. Eine Liste kann bis zu 5 Spalten ha- 


Dater anlegen. 
Datei laden 
neuer Datensatz  -{ 


ben, und die Zuordnung der Datenfelder zu den 

en der Liste ist von Fall zu Fall frei veränder- 
ar. 

“CPCDAT“ besteht aus dem Initialisierungspro- 


gramm CPCDAT und dem eigentlichen Dateiverwal- 


tungsprogramm DATPROG, das von CPCDAT aus 


gestartet wird. Diese Aufteilung ist aus Speicherplatz- 
gründen notwendig. Aus dem gleichen Grund mußte 


auch auf Erläuterungen im Programmlisting verzich- 
tet werden. 


ATIIEN) 
) Datei- dure 
6) neue Liste 


dern . 64) sortieren 
hsehen - (8). sichern 
0-3) Ende 


-e... 


Datei-Organisation 


Eine Datei besteht aus mindestens einem Datenblock 
von 20000 Bytes, der sich im RAM von Adresse 
20501 bis 40500 erstreckt, und einer Parameterdatei 
in Form von Variablen, die zum größten Teil beim 
Anlegen einer Datei festgelegt werden. Die Inhalte 
der eingegebenen Datensätze werden als ASCII-Code 
unmittelbar hintereinander in den Datenblock ge- 
schrieben. Ist der RAM-Bereich erschöpft, wird der 
erste Datenblock als File 1 automatisch abgespeichert 
und ein neuer Datenblock (File 2) angefangen. 

Ist später ein Zugriff auf File 1 nötig, wird automa- 
tisch wieder umgeladen. Dabei wird File 2 gesichert, 
falls es verändert wurde (Eingabe bzw. Änderung von 
Daten). Auf diese Weise kann eine Datei, bedingt 
durch die Diskettenkapazität, maximal 7 Datenfiles, 
also 140000 Bytes, umfassen. 
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Aus dem Hauptmenü heraus werden die einzelnen 
Funktionen von CPCDAT angewählt. Durch Drücken 
einer der Zahlen 1 bis 9 wird der entsprechende 
Menüpunkt vorgewählt und beginnt zu blinken. Die 
Vorwahl kann durch Drücken einer anderen Zahl kor- 
rigiert werden. Bei Bestätigung der Vorwahl durch 
die ENTER-Taste wird die jeweilige Funktion aufge- 
rufen. Befindet sich keine Datei im Speicher, kann 
nur “Datei anlegen“, “Datei laden‘ oder “Ende“ 
aufgerufen werden. 


Datei anlegen 


Nach der Eingabe des Namens der neuen Datei wer- 
den die Anzahl der Datenfelder pro Datensatz sowie 
deren Bezeichnungen und Längen eingegeben. Da- 
nach ist eine Standardliste zusammenzustellen. Hier 
können bis zu 5 Datenfelder angegeben werden, de- 
ren Inhalte bei einer späteren Listenausgabe von Da- 
ten in einer Zeile dargestellt werden sollen. Soll die 
Liste weniger als 5 Spalten haben, so ist bei der Fra- 
ge nach einer weiteren Datenfeld-Nr. einfach nur 
ENTER einzugeben. Die Zusammenstellung der 
Liste kann über den Menüpunkt “neue Liste‘ jeder- 
zeit geändert werden. Nach dem Laden der Datei ist 
jedoch immer die beim ersten Anlegen der Datei be- 
stimmte Standard-Liste gewählt. 

Die Feldnummern für die momentane Listenzusam- 
menstellung werden im Dateiinformations-Fenster 
links oben auf dem Bildschirm, hinter der Abkür- 
zung LS, ständig angezeigt. Dieses Fenster informiert 
auch über die Anzahl der angelegten Datensätze 
sowie über das File der Gesamtdatei, das sich zur Zeit 
im Speicher befindet. 


Neuer Datensatz 


Bei Aufruf dieses Menüpunktes wird die Datei um ei- 
nen Datensatz nach hinten erweitert, die Eingaben für 
die Datenfelder werden vom Programm abgefragt. Im 
Gegensatz zum normalen INPUT-Befehl werden auch 
Kommas und Leerzeichen an jeder beliebigen Stelle 
eines Eingabestrings akzeptiert. 


Suchen und Ändern 


In diesem Programmteil können Datensätze ausgege- 
ben oder geändert werden, und die Datei kann nach 
Datensätzen durchsucht werden, die bestimmte Krite- 
rien erfüllen. Der Benutzer wird durch Abfragen ge- 
führt, so daß nicht alle Abfragen im Detail erklärt wer- 
den müssen. Zum Durchsuchen der Datei können bis 
zu 4 Suchbegriffe gleichzeitig angegeben werden. Es 
werden dann nur die Datensätze ausgegeben, die alle 
Suchbegriffe in den entsprechenden Datenfeldern ent- 
halten. Sollen weniger als 4 Suchbegriffe verwendet 
werden, so ist die Frage nach dem Datenfeld für einen 
weiteren Suchbegriff einfach mit ENTER zu beantwor- 
ten. Die Suche beginnt immer beim höchsten (= letz- 
tem) Datensatz. Soll sie nicht bis hinunter zum Daten- 
satz 1 durchgeführt werden, kann die Nummer des 
untersten zu durchsuchenden Datensatzes eingegeben 
werden, andernfalls ist die entsprechende Abfrage mit 
ENTER zu beantworten. 

Folgende Arten von Suchbegriffen sind möglich: 


— Strings — 
Alle Suchbegriffe, die nicht mit “=“, “>““ oder “<“ 


beginnen, werden als String interpretiert. Der Suchbe- 
griff gilt als gefunden, wenn ein Datensatz im entspre- 
chenden Datenfeld den Suchbegriff an irgendeiner 
beliebigen Stelle enthält. Dabei wird Groß- und Klein- 
schreibung nicht berücksichtigt. 


— Vergleiche — 
Alle Suchbegriffe die mit “=“, *“>“ oder “<““ begin- 
nen, werden als numerische Vergleiche interpretiert. 
Dem Vergleichsoperator muß eine Zahl folgen. Der 
Suchbegriff gilt als gefunden, wenn ein Datensatz am 
Anfang des entsprechenden Datenfeldes eine Zahl ent- 
hält, die das eingegebene Vergleichskrterium erfüllt. 
In der Funktion “Suchen‘ wird die Ausgabe der ge- 
fundenen Datensätze normalerweise in Listenform 
durchgeführt, wobei am linken Bildschirmrand die 
Datensatz-Nummer angegeben wird. Eine Umschal- 
tung auf Ausgabe kompletter Datensätze ist mög- 
lich (siehe nächster Absatz). Außerdem kann ein 
Drucker zugeschaltet werden. Bei Listenausgabe gibt 
der Drucker einige Daten mit aus, die auf dem Bild- 
schirm nicht angezeigt werden. Es handelt sich dabei 
um die eingegebenen Suchkriterien und die Erläute- 
rungen der einzelen Spalten der Liste. 
Immer, wenn das Programm die Eingabe eines ein- 
zelnen Buchstabens als Antwort auf eine Abfrage 
erwartet, sind die in einem Zusatzfenster einge- 
blendeten Control-Befehle wirksam: 
— CTRL+H führt zurück ins Hauptmenü 
— CTRL+L schaltet Listenausgabe für Funktion 
“Suchen“ ein oder aus. Der jeweilige Status dieses 
„Schalters‘“ wird invertiert angezeigt. 
— CTRL+P schaltet die Druckerausgabe ein oder 
aus. Der jeweilige Status wird invertiert angezeigt. 


Beim Ändern eines Datensatzes werden alle Datenfel- 
der nacheinander abgefragt. Soll der alte Inhalt un- 
verändert bleiben, kann mit ENTER weitergegangen 
werden. 

Bei einer Änderung ist folgendes zu beachten: 

— Teile des alten Datenfeldinhaltes können mit 
der COPY-Taste übernommen werden. 

— Im Gegensatz zum normalen INPUT-Befehl werden 
sämtliche Leerzeichen der Neueingabe berücksich- 
tigt (wichtig zum Löschen von Datenfeldern), und 
auch Kommas werden akzeptiert. 

— Wenn nur der Anfang geändert werden soll, muß 
der Rest des Feldinhaltes nicht wieder neu einge- 
geben werden. Der neue Feldinhalt ist genau, wie 
er sich in der Bildschirmzeile darstellt, egal, bis wo- 
hin der Cursor bewegt wurde. 


Sortieren 


Der Menüpunkt “Sortieren‘“ ermöglicht eine Sortie- 
rung aller Datensätze des Datenfiles, das sich gerade 
im Speicher befindet. Das Sortieren erfolgt anhand 
der Inhalte eines zu benennenden Datenfeldes ent- 
weder in steigender (unterster Wert im untersten 
Datensatz) oder in fallender Reihenfolge. Es 

wird nach ASCII-Codes sortiert, so daß automatisch 
je nach Feldinhalt eine alphabetische Folge oder eine 
Zahlenfolge entsteht. Groß- und Kleinschreibung 
werden bei der Sortierung gleichwertig behandelt. 
Die Sortier-Routine ist in Maschinencode geschrieben 
und deshalb sehr schnell. 


Neue Liste 


Oft ist es erforderlich, Datensatzinhalte in einer Liste 
ausgeben zu lassen, deren Zusammensetzung nicht 
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mit der beim Anlegen der Datei definierten Standard- 
liste übereinstimmt. Mit dem Unterprogramm “neue 
Liste“ ist eine Umstellung der Liste jederzeit möglich. 
Die Eingabe erfolgt wie bei “Datei anlegen“, und die 
neue Zusammensetzung wird 'im Fenster links oben 
am Bildschirm angezeigt. Die Standardliste wird hier- 
von nicht beeinflußt, beim nächsten Laden der Datei 
ist also wieder die Standardliste eingestellt. 


Datei durchsehen 


Dieses Unterprogramm gibt alle Datensätze in Listen- 


form auf dem Bildschirm aus, beginnend mit dem 
höchsten Datensatz. Soll nicht am Ende der Datei be- 
gonnen werden, kann der oberste Datensatz für die 
Auflistung eingegeben werden, andernfalls ist die ent- 
sprechende Abfrage mit ENTER zu beantworten. 


Datei laden 


Es wird eine neue Datei zur Bearbeitung in den Spei- 


cher geladen. Besitzt diese Datei mehrere Datenfiles, 
lädt das Programm das File mit der höchsten Num- 
mer. Befindet sich beim Aufruf von “Datei laden“ 
bereits eine Datei im Speicher, wird diese automa- 
tisch gesichert, falls an ihr seit dem Laden oder dem 
letzten Sichern irgendeine Veränderung vorgenom- 
men wurde. 


Sichern 


Bei Aufruf eines Menüpunktes wird das im Speicher 
befindliche Datenfile sowie die Parameterdatei der 
bearbeitenden Datei gesichert. Damit nicht ein großer 
Teil der Diskettenkapazität durch “BAK‘“-Dateien 
verschenkt wird, werden bei jedem Sichern alle 


Bitte lesen Sie weiter auf Seite 98 


1800 ee meer ee 
1805 ’* CPC DATEIVERWALTUNG * 
1818 ’* VON * 
1815 ’* RAINER PECKSEN * 
1820 ’* FUER * 
1925 ’* SCHNEIDER AKTIV * 
1838 ’* LADEPROGRAMM * 
1848 ’* CPC 464/664/6128 ® 
10850 "mmHg 
1868 INK 1,25:INK 8,1:PAPER 8:PEN 1 


:BORDER 1:MODE 2 
1878 WINDOW #1,2,79,7,24:WINDOW #2, 

38,80,3,5:WINDOW #8,21,80,3,5 

1888 WINDOW #3,1,19,1,5:WINDOW #4,2 
1,36,3,5:WINDOW #5,21,80,1,1 

1898 WINDOW #6,37,37,3,5 

1188 PAPER #1,8:PAPER #8,1:PAPER #2 
‚1:PAPER #3,1:PAPER #4,1:PAPER #5,1 
1118 PAPER #6,8 

1128 PEN #1,1:PEN #8,8:PEN #2,8:PEN 
#3,0:PEN #4,8:PEN #5,8:PEN #6,1 


1138 CLS:CLS #1:CL5 #3:CL5 #5 

1148 PLOT 8,8,1:DRAW 639,8:DRAW 639 
‚313:PLOT 638,@:DRAW 638,313:DRAW & 
‚313 

1158 DRAW 8,8:PLOT 1,8:DRAW 1,313 
1168 PRINT #5," CPC-DATEIVERWALTU 
NG Version 2.3 (C) 1986 R.Pecks 
en”; 

1178 PRINT #3:PRINT #3,” Datei:"”:PR 
INT #3,” Datensaetze:":PRINT #3,” F 
ile-Nr.:"” 

1188 PRINT #3,” LS"; 

1198 IF PEEK(48581)=25 THEN 1228 
1288 SYMBOL AFTER 32:POKE 48581,25 
1218 MEMORY 28588:0PENOUT "dummy":M 
EMORY HIMEM-1:CLOSEOUT 

1228 SYMBOL 96,0,0,0,0,0,0,24,8 
1238 SYMBOL 95,0,0,0,0,0,24,24,48 
1248 WINDOW #5,18,79,7,24:PAPER #5, 
B:PEN #5,1 

1258 FOR zadr=&9E98 TO &E9FAF:READ a 
$:POKE zadr,VAL("&"”+a$) :NEXT 

1268 DATA DD,56,81,DD,5E,88,DD,66 
1278 DATA 83,DD,6E,82,DD,46,85,DD 
1288 DATA 4E,84,ED,B®,C9,00,08,00 
1298 DATA 88,AF,32,36,9E,3A,37,9E 
1388 DATA FE,81,CD,95,9F,CA,C8,9E 
1318 DATA B8,CA,D7,9E,DA,CF,9E,C9 
1328 DATA B8,CA,D?7,9E,DA,C7,9E,3E 
1338 DATA 81,32,36,9E,C3,C7,9E,®D 
1348 DATA CA,C?,9E,13,23,C3,B5,9E 
1358 DATA 00,00,00,00,2A,3A,9E,ED 
1368 DATA 5B,490,9E,AF,ED,52,22,3C 
1378 DATA 9E,ED,5B,3A,9E,ED,53,3E 
1388 DATA 9E,2A,3C,9E,ED,5B,42,9E 
1398 DATA 19,EB,2A,3E,9E,ED,4B,42 
1488 DATA 9E,89,3A,38,9E,4F,CD,B1 
1418 DATA 9E,3A,36,9E,FE,81,C2,1F 
1428 DATA 9F,2A,3C,9E,22,3E,9E,2A 
1438 DATA 3C,9E,ED,5B,48,9E,AF,ED 
1448 DATA 52,22,3C,9E,EB,21,15,508 
1458 DATA AF,ED,52,CA,F9,9E,DA,F9 
1468 DATA 9E,2A,3E,9E,ED,5B,3A,9E 
1478 DATA AF,ED,52,C2,66,9F,2A,3A 
1488 DATA 9E,ED,5B,48,9E,AF,ED,52 
1498 DATA 22,3A,9E,ED,52,22,3C,9E 
1588 DATA 21,15,58,ED,5B,3A,9E,AF 
1518 DATA ED,52,DA,F1,9E,C9,ED,48B 
1528 DATA 48,9E,2A,3E,9E,11,74,408 
1538 DATA ED,B®,ED,4B,40,9E,2A,3A 
1548 DATA 9E,ED,SB,3E,9E,ED,B®,ED 
1558 DATA 4B,40,9E,21,74,48,ED,5B 
1568 DATA 3A,9E,ED,B®,C3,46,9F,88 
1578 DATA 008,00,008,80,008,7E,FE,61 
1588 DATA DA,9D,9F,D6,28,47,1A,FE 
1598 DATA 61,DA,A6,9F,D6,20,C05,47 
1688 DATA 3A,37,9E,FE,81,78,C1,C9 
1618 RUN "DATPROG.BAS” 
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I1DBHQ Haranmueneeeeneennreneeeneneeee 
18801 ’* CPC DATEIVERWALTUNG * 
1802 ’* HAUPTPROGRAMM * 
1803 '* VON * 
1804 ’* RAINER PECKSEN * 
1885 ’* FUER * 
1806 ’* SCHNEIDER AKTIV = 
1807 ’* CPC 464/664/6128 * 
1008 "HHERrHunnueaaeneneununeeeeeeenn 
1818 

1828 DEFINT a-w:DIM menu$( 9) :menu$( 


1)="Datei anlegen" :menu$( 2) ="Datei 

laden" 

1838 menu$( 3) ="neuer Datensatz" :men 

u$(4)="suchen/aendern" 

1848 menu$(5) ="Datei durchsehen” :me 

nu$(6)="neue Liste" :menu$( 7?) ="sorti 

eren" 

1858 menu$( 7) ="sortieren"” :menu$( 8) = 

"sichern" :menu$( 9) ="Ende” 

1868 DIM mpos(9,2) :mpos( 1,1) =6:mpos 

(1,2)=1:mpos(2,1)=6:mpos(2,2)=2:mpo 

s(3,1)=6 

1878 mpos( 3,2) =3:mpos(4,1)=28:mpos( 

4,2)=1:mpos(5,1)=28:mpos(5,2)=2 

1888 mpos(6,1)=28:mpos(6,2)=3:mpos( 

7,1)=51:mpos( 7,2)=1:mpos(8,1)=51 

1898 mpos(8B,2)=2:mpos(9,1)=51:mpos( 

9,2)=3 

1188 DIM feldlang( 16) :DIM feldnam$( 

16) :DIM tabel(5) :DIM tabels(5) 

1118 DIM suchstr$(4) :DIM suchfeld(4 

) :DIM numver(4) 

1128 pfileaend=®8:fileaend=8 

1138 CLS:PRINT: INPUT ” Bitte Datum 

eingeben (B Zeichen): ";datum$ 

1148 datum$=LEFT$( datum$,8) 

1158 

1168 CLS:PRINT "” (1) Datei anlegen 
(4) suchen/aendern (7) sort 

ieren” 

1178 PRINT "” (2) Datei 

(5) Datei durchsehen 

1188 PRINT ” (3) neuer 

(6) neue Liste 

1198 ret=® 

1288 a$=INKEY$:IF a$=""” THEN 12088 

1218 IF VALl(a$)<1 OR VAL(a$)>9 THEN 

1288 ELSE wahl=VAL(a$) 

1228 EVERY 28 GOSUB 3468 

1238 a$=INKEY$:IF a$="" THEN 1238 

1248 IF VAL(a$)<1 OR VAL(a$)>9 THEN 

1270 

1258 n=REMAIN(B) :PAPER 1:PEN 8:LOCA 

TE mpos(wahl,1),mpos(wahl,2) 

1268 PRINT menu$( wahl) ; :wahl=VAL(a$ 

) :GOTO 1228 

1278 IF ASC(a$)<>13 THEN 1238 

1288 n=REMAIN(B) :PAPER 1:PEN 8 

1298 IF wahl=9 THEN 2688 


laden 

(8) sichern" 
Datensatz 
(9) Ende” 


1388 ON wahl GOSUB 1328, 1618, 1728,11 
960, 2888,3248,380780,3838:G0T0 1168 
1318 ° 

1328 CLS:CLS #1:namflag=8:IF dateif 
lag<>1 THEN 1358 

1338 IF pfileaend=1 THEN GOSUB 3528 
1348 IF fileaend=1 THEN GOSUB 3498 
1358 LOCATE #3,5,5:PRINT #3,” 


’ 

1368 LOCATE #3,11,2:PRINT #3," 

’ 
1378 filezahl=1:filenr=1:obersatz=® 
:dateiflag=1 
1388 GOSUB 3689:G6G05SUB 3628:CLS:PRIN 
T:INPUT ” Name der neuen Datei: ";d 
atei$ 
1398 IF datei$="" THEN 1358 ELSE da 
tei$=UPPER$(LEFT$(Ldatei$,8B)) 
1488 GOSUB 3588 
1418 CLS:PRINT: INPUT 
r pro Datensatz (max. 
1428 FOR n=1 TO felder 


" Anzahl Felde 
16) ";felder 


1438 CLS:PRINT " Datenfeld Nr.";n 
1448 INPUT " Feldname (max. 12 
Zeichen) "-feldnam$( n) 

1458 IF feldnam$(n)="" THEN 1438 
1468 feldnam$( n) =UPPER$(LEFT$( Feld 


nam$( n) ,12)) 


1478 INPUT " Laenge des Feldes 
(max. 59) ";feldlang(n) 
1488 IF feldlang(n)<1i OR feldlang( 


n)>59 THEN 1478 


1498 LOCATE #1,1,2+n:PRINT #1,USIN 
G "HH”;n; 
1588 PRINT #1,”". ";feldnam$(n) ;:5SY 


MBOL 32,0,0,8,0,0,0,24,8 
1518 LOCATE 41,19,2+n:PRINT #1,5TR 
ING$( feldlang( n) ‚,32); 

1528 SYMBOL 32,80,0,08,0,0,0,0,8 
1538 NEXT:GOSUB 3248 

1548 FOR n=1 TO S:tabels(n)=tabel(n 
) :NEXT:tabspals=tabspal 

1558 CLS:PRINT:PRINT " Alles richti 
£? <j/n>" 

1568 a$=LOWER$C INKEY$) :IF a$<>"j" A 
ND a$<>"n" THEN 1568 

1578 IF a$="n" THEN 1358 

1588 satzlang=8:FOR n=1 TO felder:s 
atzlang=satzlang+tfeldlang( n) :NEXT 
1598 satznr=®:filesaetze=288088\satz 
lang:fileaend=1:pfileaend=1:RETURN 
16808 ” 

1618 CLS:IF pfileaend=1 THEN GOSUB 
35208 

1628 IF fileaend=1 THEN GOSUB 3498 
1638 PRINT:PRINT "” Name der gewuens 
chten Datei ";:INPUT datei$ 

1648 datei$=UPPER$( datei$) :G0OSUB 35 
88 

1658 GOSUB 3668: filenr=filezahl:605 
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UB 3689:G05SUB 3628 
1668 LOCATE #3,5,5:PRINT #3," 


1678 FOR n=1 TO tabspal 

1688 LOCATE #3,5+(n-1)*3,5:PRINT # 

3,USING "##”;tabel(n); 

1698 NEXT :dateiflag=1:satznr=obersa 
tz:CLS5S #1:namflag=-8:G0OSUB 3648:GOSU 
B 3948 

1788 RETURN 

1718 

1728 IF dateiflag<>1 THEN 1948 ELSE 
CLS:CLS #5 

1738 IF namflag=®8 THEN GOSUB 3948 
1748 obersatz=obersatz+t1:pfileaend= 
1:fileaend=1:satznr=obersatz 

1758 GOSUB 36998:G0SUB 3828 

1768 PRINT:PRINT "” Eingabe Datensat 
z"”;satznr 

1778 offset=8:LOCATE #1,28,1:PRINT 

#1,USING "AHHH”; satznr 

1788 FOR n=1 TO felder 

1798 SYMBOL 32,8,8,8,8,08,0,24,8:KE 
Y DEF 47,1,96:KEY DEF 39,1,95,68 
1888 LOCATE #1,19,2+n:PRINT #1,5TR 
ING$( feldlang( n) ‚,32) ; 


1818 LOCATE #1,17,2+n:INPUT #1,inp 
u$ 

1828 FOR k=1 TO LEN(inpu$) 

1838 IF MID$(inpu$,k,1)=CHR$( 95) 


THEN MID$( inpu$,k, 1) =CHA$( 44) 

1848 IF MID$(inpu$,k, 1) =CHA$( 96) 

THEN MID$( inpu$,k, 1) =CHR$( 32) 

1858 NEXT:SYMBOL 32,0,0,0,0,0,0,8, 

@:KEY DEF 47,1,32:KEY DEF 39,1,44,6 
1%) 

1868 IF LEN(inpu$)>feldlang(n) THE 
N inpu$=LEFT$(inpu$,feldlang(n)) 
1878 inpu$=inpu$+STRING$( feldlang( 
n)-LEN( inpu$) ,32) 

1888 zadr=-28581+offset+( satznr-1i-( 
filenr-1)*filesaetze) *#satzlang 

1898 zadr1i=PEEK(@inpu$+1) +256*PEEK 
(@inpu$+t2) 

1988 CALL 498688, feldlang(n),zadri, 
zadr:offset=-offset+feldlang(n) 

1918 NEXT:CLS:PRINT:PRINT "” Noch ei 
n Datensatz? <j/n>" 

1928 a$=LOWER$( INKEY$) :IF a$="n" TH 
EN 1948 ELSE IF a$<>"j” THEN 1928 
1938 CLS:CLS #5:6G0T0 1748 

1948 ARETURN 

1958 

1968 IF dateiflag<>1 OR obersatz=® 
THEN 2668 ELSE WINDOW SWAP 2,8 

1978 CLS #4:CL5 #6:CLS 

1988 PRINT #4," °H Hauptmenu” :PRINT 
#4,” °P Drucker”:PRINT #4,” °L Lis 
te”; 

1998 prin=®8:IF tabspal=® THEN tabel 


le=®8 ELSE tabelle>=1 

2088 GOSUB 4499:G0SUB 4438 

2818 CLS:PRINT:PRINT " Datensatz-Nr 
- ";CHR$( 24) ;"e" ;CHR$( 24) ;"ingeben 
oder "; 

2828 PRINT CHR$( 24) ;"s"; CHR$( 24) ;"u 
chen?" 

2838 GOSUB 37398:a$=LOWER$( INKEY$) 


2848 IF a$="e" THEN 2888 

2858 IF a$="s" THEN 2188 

2868 IF ret=1 THEN 2668 ELSE 2838 
2078 


2888 CLS:PRINT:INPUT " Datensatz-Nr 
. ";satznr 

2898 IF satznr<1i OR satznr>obersatz 
THEN 2888 

2188 GOSUB 3829:G05SUB 3948:G0SUB 48 
18 

2118 CLS:PRINT:PRINT "” 

<j/n>" 

2128 GOSUB 3738:a$=LOWER$( INKEY$) 
2138 IF a$="j" THEN GOSUB 2728:6G0T0 
2818 

2148 IF ret=1 THEN 2668 

2158 IF a$<>"n" THEN 21208 

2168 GOTO 2818 

2178 

2188 GOSUB 3948:n=1:1stflag=-® 

2198 IF tabelle=® THEN CLS #5 

2288 CLS:PRINT "” Datenfeld fuer"”;n; 
2218 LOCATE 18,1:INPUT "”. Suchbegri 

ff"; suchfeld(n) 

2228 IF suchfeld(n)<1i THEN 2318 

2238 IF suchfeld(n)>felder THEN 228 
1%) 

2248 PRINT n;:LOCATE 3,2:PRINT ”. 5 
uchbegriff (max. 25 Zeichen)" 

2258 LOCATE 16,3:INPUT suchstr$(n) 
2268 IF suchstr$(n)="" THEN 2318 

2278 suchstr$(n)=LEFT$( suchstr${(n), 

25) 

2288 IF LEFT$(suchstr$(n),1)="<"” OR 
LEFT$( suchstr$(n),1)="=" OR LEFT$( 
suchstr$(n), 1)=">” THEN numver(n)>=1 
ELSE numver(n)=® 

2298 n=n+i:IF n<5 THEN 2208 

2300 

2318 suchbreit=n-1:IF suchbreit=® T 

HEN 2818 

2328 CLS:PRINT: INPUT ” Unterster Da 

tensatz"”; lowsatz 

2338 IF lowsatz<® OR lowsatz>obersa 

tz THEN 2318 

2348 IF lowsatz=®8 THEN lowsatz>=1 

2358 CLS:PRINT:PRINT ” <ENTER> unte 

rbricht die Suche” 

2368 IF tabelle=1 THEN CLS #1:namfl 

ag=-®d 

2378 i=obersatz:find=® 

2388 IF tabelle=®8 THEN CLS #5 


aendern? 


94 


LISTING 


2398 satznr=-i:G05UB 38280:G05SUB 428 
1%) 
24B8 a$=-INKEY$:IF a$="" THEN 2458 


ELSE IF ASC(a$)<>13 THEN 2458 
2418 CLS:PRINT:PRINT ” <ENTER> = w 


eiter <DEL> = abbrechen" 
2428 GOSUB 3738:IF ret=1 THEN 2668 


ELSE a$=INKEY$:IF a$="" THEN 2428 
2438 IF ASC(a$)=13 THEN CLS:PRINT: 
PRINT ” <ENTER> unterbricht die Suc 
he”:GOTO 2458 


2448 IF ASC(a$)=&7F THEN 2818 ELSE 
24208 

2458 IF gefund=1 THEN find=1:G60T0 
2508 

2468 i=-i-1:IF i>=lowsatz THEN 2388 
24978 IF find=®8 THEN CLS:PRINT:PRIN 


T " Kein passender Datensatz"; CHR$( 
7);:FOR 1=1 TO 4888:NEXT 

2488 GOTO 2B18 

2490 

2588 IF tabelle=1 THEN GOSUB 4158:G 
0TO 2468 

2518 GOSUB 3948:G05UB A4B818:PRINT CH 
R$C7); 

2528 h=8:CLS:PRINT:PRINT " 
4) ;"w"”;CHRA$( 24) ;"eiter 


"CHR$(2 
"; CHR$( 24) 


’ 

2538 PRINT "S5"”;CHR$( 24) ;"”uchende 

"> CHR$( 24) ;"a”; CHR$( 24) ;"endern"; 
2548 GOSUB 3738 :a$=LOWER$( INKEY$) 
2558 IF tabelle=1 THEN h=1:LOCATE 2 


8,2:PRINT " ” 
2568 IF a$="w” THEN CLS:CL5 #5:PRIN 
T:PRINT "” <ENTER> unterbricht die 5 


uche”:GOTO 2468 

2578 IF a$="s” THEN 2818 

2588 IF ret=1 THEN 2668 

2598 IF a$<>"a"” OA h=1 THEN 2548 
2608 GOSUB 2728:CL5S:PARINT:PRINT "” 
;CHR$( 24) ;"w”; CHR$( 24) ;"eiter ur 
2618 PRINT CHR$( 24) ;"S";CHR$( 24) ;"u 
chende"; 

2628 GOSUB 3738:a$=LOWER$( INKEY$) 
26308 IF a$="w" THEN CLS:CLS #5:PRIN 
T:PRINT " <ENTER> unterbricht die 5 
uche”:GOTO 2468 
2648 IF a$="s"” 
1%) 

2658 IF ret=1 THEN 2668 ELSE 2628 
2668 WINDOW SWAP 8,2:RETURN 

2670 ” 

2688 IF fileaend=1 THEN GOSUB 3498 
2698 IF pfileaend=1 THEN GOSUB 3528 


THEN CLS #5:60T0 281 


2788 PAPER B8:PEN 1:MODE 2:END 
2718 ” 
2728 CLS:PRINT:PRINT "” Datensatz ae 


ndern"”:offset=8 
2738 SYMBOL 32,8,8,08,08,8,8,24,8:KEY 
DEF 47,1,96:KEY DEF 39,1,95,6® 


2748 FOR n=1 TO felder 

2758 LOCATE #5,1,2+n:INPUT #5,neu$ 
:IF LEN(neu$)>8 TIHEN fileaend=1 
2768 IF LEN(neu$)>feldlang(n) THEN 
neu$=LEFT$(neu$,feldlang(n)) 

2778 FOR k=1 TO LEN(neu$) 

2788 IF MID$(neu$,k, 1) =CHR$(96) T 
HEN MID$( neu$,k, 1) =CHR$( 32) 

2798 IF MID$(neu$,k, 1) =CHRA$(95) T 
HEN MID$( neu$,k, 1) =CHR$( 44) 

285688 NEXT:GOSUB 3898 

2818 inpu$=neu$+RIGHT$( inpu$,LEN(i 
npu$) -LEN(neu$) ) 

2828 zadr=285B81+offset+(l satznr-i-( 

filenr-1)*filesaetze)*satzlang 

2838 zadri=PEEK( @inpu$+1) +256*PEEK 

(@inpu$+2) 

2848 CALL 490688,feldlang(n),zadri, 
zadr:offset=offset+feldlang(n) 

2858 NEXT:SYMBOL 32,8,0,08,08,0,80,0,8 


:KEY DEF 47,1,32:KEY DEF 39,1,44,60 

2868 RETURN 

28780 ” 

2888 IF dateiflag=®8 OR obersatz=8 T 
HEN 3818 

2898 CLS:PRINT:INPUT "” oberster Da 
tensatz ";satznr 

2988 IF satznr>obersatz OA satznr<® 
THEN 2898 


2918 IF satznr=d THEN satznr=obersa 
tz 

2928 CLS #1:namflag=d:prin=® 

2938 CLS:PRINT:PRINT "” <ENTER> unte 
rbricht die Ausgabe" 

2948 GOSUB 3829:G05UB 4158 

2958 satznr=satznr-1:IF satznr=B TH 
EN 39018 

2968 a$=INKEY$:IF a$="" THEN 2948 E 
LSE IF ASC(a$)<>13 THEN 2948 


2978 CLS:PRINT:PRINT "” <ENTER> = we 
iter <DEL> = abbrechen" 
2988 a$=INKEY$:IF a$="" THEN 2988 


2998 
3888 
2988 
3818 RETURN 

3028 

3838 IF dateiflag=® THEN RETURN 
3848 CLS:PRINT:PRINT "” Datei ";date 
i$;"” wird gesichert. Bitte warten!” 
3858 GOSUB 3528:G05UB 3498: RETURN 
3060 
3878 IF dateiflag=®d OR obersatz<2 T 
HEN RETURN 

3888 CLS:CLS #5:IF namflag=d THEN C 
LS #1:6G0SUB 3948 

3898 PRINT:INPUT " Nach welchem Fel 
d soll sortiert werden ";n 

3188 IF n<1 OR n>felder THEN 3888 


IF ASC(a$) =13 THEN 2938 
IF ASC(a$)=&7F THEN 3818 ELSE 


3118 offset=-8:FOR k-1 TO n-1:0ffset 39 
95 


LISTING 


=offset+feldlang(k) :NEXT 

3128 CLS:PRINT:PRINT ” "”;CHR$(24) ;” 
s";CHR$( 24) ;"teigende oder "”; 

3138 PRINT CHA$( 24) ;"F";CHA$( 24) ;"o 
llende Sortierung ?"” 


3148 a$=-LOWER$( INKEY$) :IF a$=-"s" 
EN oper=1:60T0 3168 


3158 IF a$="f"” THEN oper=2 ELSE 314 
1%) 

3168 CLS:lowsatz=( filenr-i) *( 28B880\ 
satzlang) +1:top=lowsatz+( 28888\satz 
lang) -1 

3178 IF top>obersatz THEN top=obers 
atz 

3188 ztop=28581+( top-lowsatz)*satzl 
ang:POKE 48583,oper:POKE 48584,feld 
lang(n) 

3198 POKE 48586, ztop-INT( ztop/256) * 
256:POKE 485907, INT( ztop/256) 

3288 POKE 48512,satzlang MOD 256:PO 

KE 48513, satzlang\256 

3218 POKE 48514,offset MOD 256:POKE 
AaBS15S,0offset\256 

3228 CALL 48676: fileaend=1:RETURN 
3238 
3248 IF dateiflag=® THEN RETURN 
3258 CLS:PRINT ” Liste zusammenstel 
len (gesamt max. 56 Zeichen) ” 
3268 CLS #5:L0OCATE #3,5,5:PARINT #3, 
STRING$( 14,32); 

3278 IF namflag=8 THEN CLS#1:nlist= 
1:G605UB 3948 

3288 LOCATE #1,1,1:PRINT #1,5TRING$ 
(20,32) 

3298 tabbreit=®:n=1:namflag=® 


TH 


’ 


3388 LOCATE 4,2:PRINT "Feld-Nr. fue 
ring 

3318 LOCATE 19,2:INPUT "”. Listenspa 
lte ";tabelln) 


3328 IF tabel(n)=® THEN 3438 

3338 IF tabel(n)<i OR tabel(n)>feld 
er THEN 3428 

3348 tabbreit=tabbreit+feldlang( tab 
el(n)) 

3358 IF tabbreit>56 THEN tabbreit=t 
abbreit-feldlang( tabel(n)) :G0TO 342 
1%] 

3368 LOCATE #1,1,1:PRINT #1,"Lst:"” 

3378 LOCATE #1,8+tabbreit-feldlang( 
tabel(n))+{n-1)*#3, 1 

3388 SYMBOL 32,8,8,08,08,08,08,24,8:PRI 
NT #1,5TRING$( feldlang( tabel(n)) ,32 
J); 

3398 SYMBOL 32,8,8,0,0,0,8,0,8 

3488 LOCATE #3,5+(n-1)*3,5:PRINT #3 
‚USING "#4" ;tabelln); 

3418 n=n+1: IF n=6 THEN 3438 

3428 LOCATE 36,2:PRINT "” 

”"-:GOTO 3388 

3438 tabspal=n-1:FOR n=tabspal+t1i TO 


96 


5:tabel(n) =8:NEXT 

3448 RETURN 

3458 ” 

3468 PRINT CHR$( 24) ;:LOCATE mpos( wa 
hl,1),mpos(wahl,2) 
3478 PRINT menu$( wahl) ; :RETURN 

3488 ”’ 
3498 fileaend=-8B:a$=datei$+".da”+RIG 
HT$( STR$( filenr) , 1) 
3588 SAVE a$,b,28581,28888:a$="*.ba 
kK”:] ERA,@a$:RETURN 

3510 
3528 pfileaend=8:a$=datei$+”".par"” 
3538 OPENOUT a$:PRINT #9,obersatz:P 
RINT #9,felder:PRINT #9,tabspals 
3548 PRINT #9,filezahl:PRINT #9, sat 
zlang:PRINT #9,filesaetze 

3558 FOR n=1 TO 16:PRINT #9, feldlan 
gln) :PRINT #9, feldnam$( nn) :NEXT 

3568 FOR n=1 TO 5:PRINT #9,tabels(n 
) :NEXT:CLOSEOUT :RETURN 

3578 
3588 LOCATE #3,11,2:PRINT #3,STRING 
$(8-LEN( datei$) ,32) ;datei$: RETURN 
3598 
3688 LOCATE #3,15,3:PRINT #3,USING 
"HHRR" ;obersatz:RETURN 
3618 
3628 LOCATE #3,17,4:PRINT #3,filenr 
:RETURN 
3638 
3648 a$=datei$+"”.da”+RIGHT$CSTRA$CFi 
lenr) ,1) :LOAD a$:fileaend=9:RETURN 
3658 ’ 
3668 pfileaend=98:3$=datei$+".par" 
3678 OPENIN a$: INPUT #9,obersatz:IN 
PUT #49,felder:INPUT #9,tabspals 
3688 INPUT #9, filezahl:INPUT #9, sat 
zlang: INPUT #9,filesaetze 
3698 FOR n=1 TO 16:INPUT #9, feldlan 
e(n) :INPUT #9, feldnam$( n) :NEXT 
3788 FOR n=1 TO 5:INPUT 49,tabels(n 
) :NEXT:CLOSEIN 
3718 tabspal=tabspals:FOR n=1 TO 5: 
tabel(n) =tabels(n) :NEXT :RETURN 
3728 
3738 IF INKEY(27)<>128 THEN 3768 
3748 IF prin=1 THEN prin=98:G0O5SUB 44 
88 ELSE prin=1:G0SUB 4488 
3758 FOR 1=1 TO 288:NEXT 
3768 IF INKEY( 36) <>128 THEN 3798 
3778 CLS #1:namflag=8:IF tabelle=1 
THEN tabelle=8:G0SUB 44390:6G05SUB 394 
8 ELSE tabelle=1:G05UB 44308 
3788 FOR 1=1 TO 288:NEXT 
3798 IF INKEY(44)=128 THEN ret=1 
3888 RETURN 
3818 
3828 
3838 


[4 


[2 


’ 


IF satznr=® THEN 3878 
IF satznr>( filenr-1I)*filesaetz 


LISTING 


e AND satznr<=filenr*filesaetze THE 
N 3878 

3848 IF fileaend=1 THEN GOSUB 3498 
3858 filenr=((satznr-1)\filesaetze) 
+1:G05UB 3628 


3868 IF filenr>filezahl THEN fileza 
hl=-filezahl+1:pfileaend=1 ELSE GOSU 


B 3648 

3878 RETURN 

3888 ” 

3898 inpu$=STRING$( feldlang( n) ‚,32) 
3988 zadr1i=PEEK( @inpu$+1) +256*PEEK( 
@inpu$+2) 

3918 zadr=28581+offset+( satznr-1i-(f 
ilenr-1)*filesaetze) #satzlang 

3928 CALL 48688, feldlang(n),zadr,za 
dr1:RETURN 

3938 ’ 

3948 IF namflag=1 THEN 3998 

3958 CLS #1:namflag=i 

3968 IF nlist=1 THEN nlist=8:6G0T0 3 
978 ELSE PRINT #1,"DATENSATZ-NR:" 
3978 FOR n=1 TO felder:LOCATE #1,1 
2+n: PRINT #1,USING "#4#";n; 

3988 PRINT 41, ";feldnam$( n) ; :NEX 
T 

3998 RETURN 

4008 ’ 

aB1ı8 CLS #5:L0OCATE #5,3,1:PRINT #5, 
USING "AHHH”; satznr 

4828 IF prin=® THEN 4858 

4838 PRINT #48:PRINT #8:PRINT #8, 
DATEI: ";datei$;" DATE 
NSATZ-NRA.: ";USING "#HHH” ;satznr; 
4848 PRINT #8,5TRING$( 15,32) ; "DATUM 
: ";datum$:PRINT #8:1stflag=® 

4858 offset=® 

4868 SYMBOL 32,0,8,08,0,0,0,24,08 
4878 FOR n=1 TO felder 


4888 GOSUB 3898:0offset=offset+feld 
lang(n) 
4898 LOCATE #5,3,n+2:PRINT #5,inpu 


$:IF prin=8d THEN 4118 

4188 PRINT #8, ";feldnam$( n) ;ST 
RING$( 14-LEN( feldnam$( n)) , 32) ;inpu$ 
A118 NEXT:SYMBOL 32,0,0,0,0,0,0,0,8 
4128 IF prin=1 THEN PRINT #8:PRINT 

#8 

4138 RETURN 

a1a8 

4158 IF 1stflag=8 AND prin=1 THEN 1 
stflag=1:G05UB 4468 

4168 IF prin<>1 THEN 4188 ELSE PRIN 


T #8," ";USING "HHAH”;satznr; 

4178 PRINT #8,” m 

4188 PRINT #1, UEINS "AHHH”; satznr; 
4198 PRINT #1, ar 

4288 FOR m=1 TO tabspal:offset=@:n= 
tabel(m) 

‚4218 FOR k=1 TO n-1 


4228 offset=offset+feldlang(k) 


4238 NEXT:GOSUB 3898: ERENT #1, inpu 
$; :IF m<5 THEN PRINT #1, r 


4248 IF prin=1 THEN PRINT v8, inpu$ 
;:IF m<S5S THEN PRINT #8, = 

4258 NEXT:PRINT #1:IF prin=1 THEN P 
RINT #8 

4268 RETURN 

4278 

4288 m=1 

4298 offset=-8:FOR kK=-1 TO suchfeld( 


m) -1:0offset=offset+feldlang(k) :NEXT 
4388 n=suchfeld(m) :G0SUB 3898:IF n 
umver(m)=1 THEN 4338 

4318 IF INSTR(ELOWER$(inpu$) ‚LOWER$ 
(suchstr$(m))) THEN gefund=1 ELSE g 
efund=8 

4328 GOTO 4368 

4338 IF LEFT$(suchstr$(m) ,1)="<" T 
HEN IF VAL(inpu$) <VAL( RIGHT$( suchst 
r$(m) ‚„LEN(suchstr$(m))-1))THEN gefu 
nd=1 ELSE gefund=8 

4348 IF LEFT$(suchstr$(m) ,1)="=" T 
HEN IF VAL(inpu$) =VAL( RIGHT$( suchst 
r$(m) ,‚LEN( suchstr$(m))-1))THEN gefu 
nd=1 ELSE gefund=® 

4358 IF LEFT$(suchstr$(m) ,1)=">" T 
HEN IF VAL(inpu$) >VAL( RIGHT$( suchst 
r$(m) ,‚LENCsuchstr$(m))-1))THEN gefu 
nd=1 ELSE gefund=B 


4368 IF gefund=1 THEN m=m+1 ELSE 4 
38® 

4378 IF m<=suchbreit THEN 4298 

4388 RETURN 

4398 

4488 LOCATE #4,13,2:IF prin=1 THEN 


PRINT #4,CHR$( 24) ;"EIN"”; 
LSE PRINT #4,CHR$( 24) 
); 

4418 RETURN 

4420 ’ 

4438 LOCATE #4,13,3:IF tabelle=1 TH 
EN PRINT #44,CHR$( 24) ;"EIN”; CHR$( 24) 
; ELSE PRINT. #4,CHR$( 24) ; "AUS" ;CHR$ 
(24); 

4448 RETURN 

4450 

4468 PRINT #8:PRINT #8 

4478 PRINT #8," DATEI: ";dateiß$; 
ING$( 48,32) ; "DATUM: ";datum$ 
4488 PRINT #8:PRINT #8,” Auflistung 
der Datensaetze mit folgenden Merk 

malen:" 

4498 FOR h=1 TO suchbreit 

a588 PRINT #8," - ";feldnam$( suc 


CHR$(24); E 
; "AUS" ; CHR$( 24 


STR 


hfeld(h)); 

4518 PRINT #8,STRING$( 12-LEN( feldn 
am$( suchfeld(h))) ,32);”: ";suchstr » 
$Ch) 


97 


a hl he, 


LISTING 


4528 NEXT:PRINT #8:PRINT #8,” Spalt 
e 1: DATENSATZ-NR.” 

4538 FOR h=2 TO tabspal+1 
4548 PRINT #8,” Spalte"”;h;": 
idnam$( tabel(h-1)) 


4558 NEXT 
4568 PRINT #8:PRINT #8:PRINT #8," 


1 2. "%s 
4578 FOR h=1 TO tabspal-1 


4588 PRINT #8,5TRING$( feldlang( tab 
el(h)) ,32) ;h+2; 
4598 NEXT:PRINT #8:PRINT #8:RETURN 


CPC 
DATEIVER- 


WALTUNG 


Fortsetzung von Seite 92 


":fe 


Dateien mit dem Zusatz “BAK“ von der Diskette ge- 
löscht. Dies gilt übrigens auch für jede während des 
Programmablaufs automatisch ausgelöste Sicherung. 


Ende 


“CPCDAT“ sollte grundsätzlich nur über diesen Menü- 
punkt und nicht über ESC oder durch Ausschalten 

des Rechners verlassen werden. Bei Aufruf von “Ende“ 
wird nämlich automatisch eine Sicherung von Daten- 
file und/oder Parameterdatei durchgeführt, falls seit 
dem Laden bzw. Sichern an einer der Dateien etwas 
verändert wurde. 


Deutscher Zeichensatz 


Wer für “CPCDAT“ einen deutschen Zeichensatz ha- 
bem möchte, kann dies einfach erreichen, indem er 
das Initialisierungs-Programm mit einer bereits veröf- 
fentlichten Routine erweitert. MEMORY- und SYM- 
BOL AFTER-Befehle müssen aber unbedingt aus 
dieser Routine entfernt werden, da sie bereits in der 
Universaldatei enthalten sind. Die Symbole 95 und 
96 dürfen nicht umdefiniert werden, denn sie wer- 
den zur Überlistung des INPUT-Befehles bezüglich 
Kommas und Leerzeichen benötigt. 


Beatles 
Beatles 
Beatles 
Beatles 
Beatles 
Beatles 


Back In The U,5.5,R. 
Lady Madonna 


am TERRA 


3a ’* SENSO * 
au '* VON ® 
so '*# OLAF BARTSCH * 
68 ’* FUER * 
78 ’* SCHNEIDER AKTIV r 
sn ’* CPC 446/6128 * 
990 ” FERNER HEHE 
180 

118 ’*** Initialisierung 


128 MEMORY &3FFF 

138 DATA 21,88,49,81,890,48,11,08,c® 
‚ed,b8,c9,21,08,c80,901,89,40,11,900,4 
8,ed,b®8,c9 

148 RESTORE 138:FOR x=&68508 TO 8851 
7:READ a$:POKE x,VAL("”&"+a$) :NEXT 
158 ENV 1,5,-1,1,5,-1,4,5,-1,8:ENT 
1,=253,108,=319,198,=426,288 

168 INK 8,8:INK 6,26:DIM p(5B) :BORD 
ER 13 

178 MODE B8:IF sm=®8 THEN PEN 7:PRINT 
"SENSO" :PRAINT:PEN 6:PRINT"Bitte"”:PR 
INT"warten":PRINT:PRINT"Ich"”:PRINT"” 
zeichne" 

188 GOSUB 528 

198 ’**=* Anleitung 

288 MODE 1:INK 2,26:PEN 3:PRINT TAB 
( 18) "Senso-Spielanleitung"”:PRINT:PR 
INT:PEN 2 

218 PRINT"Ich lasse ein Farbfeld au 


fleuchten, dazuerklingt ein bestim 
mter Ton. Wenn dudran bist, dr 
ueckst du die dem Felden 


tsprechende Taste. Dann lasse ich 

daserste und ein neues Feld nach 

einanderaufleuchten, und du musst 

wieder versu-"; 

228 PRINT"”-chen, meine Vorgabe zu 

wiederholen undso weiter." 

238 PRINT 

248 PRINT"Aber Vorsicht! Ich werde 
schnell unge-duldig, wenn du zu 1 

ange ueberlegst!"” 

258 PRINT:PRINT:PRINT"Die Tasten 5, 

6,8,9 (im Zifferntasten- block) e 

ntsprechen den Sensoflaechen.” 

268 PRINT:PRINT:PEN 3:PRINT"”Weiter: 

beliebige Taste.":PEN 2 

278 CLEAR INPUT 

288 CALL &BBB6 

298 ’*** Spiel 

388 MODE ®:CALL &8588:FOR x=1 TO 4: 

INK x,u(x) :NEXT 

318 WINDOW 1,7,1,19:CLS 

328 WINDOW#2,13,14,14,15:CL5#2 

338 PEN 6:PRINT"Start":PRINT:PRINT" 

mit":PRINT:PRINT"”belie-":PRINT:PRIN 

T"biger"”:PRINT:PRINT"Taste" 

348 IF INKEY$=""THEN 348 

358 FOR p=1 TO 58:CL5#42:PEN#2,6:PRI 


LISTING 


NT#2,USING"##";p; 

368 CLS:PRINT”"Meine” :PRINT:PRINT"”Vo 
rgabe":p(p)=INTERND*4) +1:FOR t=1 TO 
p:INK p(t),i(p(t)) :SOUND 1,p(lt)*11 
0,308 

378 FOR w=1 TO 358:NEXT:INK p(t),u( 
plt)):FOR w=1 TO 159:NEXT 

388 NEXT 

398 CLS:PRINT"Jetzt":PRINT:PRINT"”bi 
st" :PAINT:PRINT”"Du” :PAINT:PRINT"”dra 
n!”":c=®8:CLEAR INPUT:ti=TIME 

4808 a$=INKEY$:IF TIME-ti>688 THEN 7 

58 

418 IF 
428 IF 
438 IF 
448 IF 
458 GOTO 488 

468 a$="":CLEAR INPUT:c=c+1:INK a,i 
(a) :SOUND 1,a*118,38:FOR w=1 TO 358 
:NEXT:INK a,u(a) :IF a=p(c)AND c<p T 
HEN ti=TIME:GOTO A488 ELSE I 

F a<>p[lc) THEN 778 

478 CLS:S50UND 1,128,48,15,1:PRINT"”G 
ut!”:FOR w=1 TO 1888:NEXT:NEXT 

488 MODE 1:PEN 1:INK 1,24:INK 2,6:P 
RINT"Ich glaub’ ich spinn!”:PRINT:P 
RINT"Mit deinem Gehirn koenntest du 
mir Kon- kurrenz machen!" 

498 PEN 2:PRINT:PRINT p-1"”- mal ges 
chafft!!!":PRINT:PEN 1 

588 GOTO 868 

518 '#*#= Spielfeld zeichnen 

528 FOR x=1 TO 4:INK x,8:NEXT 

538 DATA 438,205,8,90,98,8,-80,0,®, 
90, 10,18,416,285,-90,0,180,90,8,-88 
‚90,188,-18,10 

548 DATA 416, 195,8,-90,270,1880,80,® 
‚188,270,-18,-18,430,195,90,0,368,2 
70,0,80,278,36®8,1®8,-18 

558 RESTORE 538:FOR sch=1 TO A4:READ 
0oxX,oy,mrx,mry,ax,ay,drx,dry,ix,iy, 
mfx,mfy 

568 ORIGIN ox,0oy 

578 MOVER mrx,mry,sch:DEG:FOR x=ax 
TO ay STEP-2:DRAW COS(x)*188,5IN( x) 
*188:NEXT 

588 DRAWR drx,dry 

598 FOR x=ix TO iy STEP 2:DRAW COS( 
x) *98,5SIN( x) #98:NEXT 


a$="9"THEN 
a$="8"THEN 
a$="5"THEN 
a$="6"THEN 


a=1:G0TO 468 
a=2:G0T0O 468 
a=3:G0TO 468 
a=4:G0TO 468 


688 MOVER mfx,mfy:FILL sch 

618 NEXT 

628 ORIGIN 8B,8:TAG:MOVE 348,288, 1®: 
INK 18, 17:PRINT"SENSO”; : TAGOFF 

638 TAG:RESTORE 728 

648 FOR sch=1 TO 4:READ x,y,ziff$:M 
OVE x,y,sch:GOSUB 788 

658 MOVE x+5,y-5:TAG:PRINT ziff$; 
668 NEXT: TAGOFF 


678 CALL &858C ’Bildschirm sichern 


688 RESTORE 738:FOR x=1 TO A:READ i 
‚u:i(x)=i:u(lx)=u:INK x,i(x) :NEXT 

698 RETURN 

7088 DRAWR 48,8:DRAWR 8,-35:DRAWR -4 

0,8:DRAWR 8,35 

718 RETURN 

728 DATA 78,98,9,28,98,8,28,58,5,7®8 
‚50,6 

738 DATA 24,12,6,3,11,1,18,9 

748 ’*=* Ende durch langes Ueberleg 

en 

758 CLS:PRINT”Bummler"” :PRINT:PRINT" 

Jetzt” :PAINT:PRINT"ist":PRINT:PRINT 
"Schluss"”:G0T0 788 

768 ’**#* Ende durch Fehler 

778 CLS:PRINT"Falsch!"” 

788 SOUND 1,253,488,12,,1:FOR x=1 T 

DO 4888:NEXT 

798 PRINT:PARINT”So war" :PRINT:PRINT 
"es" :PRINT:PRINT"richtig"”:FOR w=1 T 

0 588:NEXT 

888 FOR t=1 TO p:INK p(t),i(p(t)):S 
OUND 1,p(t)*110,38:FOR w=1 TO 358:N 

EXT 

818 INK p(t),u(p(t)):FOR w=1 TO 158 
:NEXT 

828 NEXT 

838 CLS:PRINT"Weiter"”:PRINT:PARINT"”m 
it”:PRINT:PRINT"”belie-"”:PRINT:PRINT 
"biger"”:PRINT:PRINT"Taste" 

848 CALL &BBB6 

858 MODE 1:PEN 1:INK 1,26:PRINT”Du 
hast"p-1"Runden geschafft" :PRINT 
868 PRINT:PRINT"”Noch ein Spiel?"”:PR 
INT:PRINT"(j=ja / n=nein / a=ja mit 
Anleitung) ":CLEAR INPUT 
878 a$=LOWER$( INKEY$) :IF 
878 

888 IF a$="j"THEN 388 
898 IF a$="a"”THEN INK 3,11:60T0 198 
988 IF a$="n"THEN MODE 2:PRINT"”*#* 
Ende *#**":END 

918 GOTO 878 


Eines der beliebtesten Spiele, die es für den CPC gibt, 
ist das Tonfolge-Spiel ‘“Senso“. In einer der regulären 
Hefte von Schneider aktiv wurde deshalb schon ein- 
mal ein Listing vorgestellt, weshalb aber die Nachfrage, 
kaum daß das Heft vergriffen war, trotzdem weiterging. 
Für alle neu in den Schneider-Userkreis gekommenen 
Kollegen haben wir mit diesem Sonderheft Gelegen- 
heit, eine neue Version vorzustellen, denn so einfach 
dieses Spiel ist, es macht Spaß und sollte in keiner 
Sammlung fehlen. 


Programmbeschreibung 


Für jeden, der die Regeln noch nicht kennt, hier eine 
kurze Erklärung. Der CPC spielt Ihnen eine Tonfolge 
vor, welche Sie in kürzester Zeit nachspielen müssen. 
Gelingt Ihnen dies, wird die ‚Melodie‘ etwas länger 
und damit auch schwieriger. 


a$=""THEN 
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LISTING 


SPRINGER 


Daß die einfachsten Spielideen oftmals die besten 
sind, beweist Michael Köthe mit seinem Programm 
„Springer“. Wie der Name schon sagt, beruht das 
Prinzip auf dem Zugverlauf der Springer-Figur aus 
dem Schachspiel. Lassen Sie sich von dem unkompli- 
zierten Regeln und dem leichten Verlauf des Spiels 
zu Beginn nicht täuschen. Sehr schnell wird sich Ihre 
Springerfigur in einer ausweglosen Situation be- 
finden. 


SPRINGERTOUR 


Fe EHER 
HEEREE 


[ua 17 Bag FT Be" > Be 3 Bor Be Bu 


ABCDEFCGH 


Spielregeln: 


Sie müssen mit der Springer-Figur möglichst jedes 
Feld des Spielbrettes einfärben, indem Sie einmal 
darauf springen. Danach kann dieses Feld nicht mehr 
berührt werden. Die Bewegungsmöglichkeiten ent- 
sprechen denen des Schachspieles. Das heißt, die 
Figur darf sich um jeweils ein Feld weiterbewegen, 
auch in der diagonalen Richtung. Achten Sie darauf. ; 
daß Sie für die ungünstigsten Positionen in den Ecken 
immer einen Ausweg offen haben. 


100 


LISTING 


20 PSHRESEARSESESESESESESERESESESESESESESESESESESESESESESESESESENE 
2 7% SPRINGER * 
: VON * 
4 78 M.KOETHE * 
5 7# FUER #* 
6 78 SCHNEIDER AKTIV #* 
7 #8 CPC 464/664/6128B #* 
BB ARHRRHREISESESESESESESESESESESETETETESE SE NE NE SE SE STATE 
10 MODE 1 


20 WINDOW#1,33,38,4,19 
30 INK 2,18:INK 3,12 

40 DIM feld( 11,11) ,speicher( 64,2) 
50 i=2:FOR x=1 TO B:waag(x)=-i:i=-ir2 
:NEXT 

60 i=18:FOR x=1 TO B:senk(x)=i:i=-i- 


70 ’” ++ Springer ++ 

80 SYMBOL 241,0,0,3,7,13,31,23,5 

90 SYMBOL 242,0,0,192,224,240,240,2 
40,240 

100 SYMBOL 243,1,1,3,7,3,7,0,0 

110 SYMBOL 244,240,224,240,248,240, 
248,0,0 

120 ” ++ Spielfeld ++ 

130 SYMBOL 255,255,255,255,255,255, 
255,255,255 

140 ” ++ betr. Feld ++ 

150 SYMBOL 245,255, 128, 128,128,128, 
128, 128,128 

160 SYMBOL 246,255,1,1,1,1,1,1,1 
170 SYMBOL 247,128,128,128,128,128, 
128, 128,255 

180 SYMBOL 248,1,1,1,1,1,1,1,255 
190 ’° ++ Stringzuweisung ++ 

200 spiel$=STRING$( 2,255) +STRAING$(2 
‚8) +CHA$( 10) +STRING$( 2,255) 

210 sp$=CHRA$L 241) +CHRA$( 242) +5STAING$ 
(2,8) +CHA$( 10) +CHR$( 243) +CHR$C 244) 
220 bf$=CHR$L 245) +CHR$( 246) +STAING$ 
(2,8) +CHA$( 10) +CHA$( 247) +CHR$( 248) 


23D 
240 
250 
260 
270 
280 
290 
300 


LOCATE 14,1:PRINT"SPRINGERTOUR" 
PLOT 12,354,2:DRAW 12,92 

PLOT 12,354:DRAW 274,354 

PLOT 12,92:DRAW 274,92 

PLOT 274,354:DRAW 274,92 

zug=0 

FOR i=1 TO 64 
speicher(i,1)=0:speicher(i,2)=O 


310 
320 
330 
340 
350 
360 
370 
N 2 
380 
390 


NEXT 

ende=0O 

LOCATE 1,25:PRINT SPACE$( 39); 
a=1 

FOR y=4 TO 19 STEP 2 

FOR x=2 TO 17 STEP 2 

IF a MOD 2=0 THEN PEN 3 ELSE PE 


LOCATE x,y 
PRINT bf$; 


a=at1 

NEXT 

IF a MOD 2=0 THEN a=1 ELSE a=2 
NEXT 

PEN 1 

TAG 

MOVE 25,78:PRINT"ABCDEFG 


400 
410 
420 
430 
440 
450 
460 
H"; 

470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 


x=B 

FOR i=338 TO 88 STEP-32 
MOVE 280,i 

PRINT x; 

x=x—1 

NEXT 

PEN 1 

FOR x=2 TO 9 

FOR y=2 TO 9 
feld(x,y)=1 

NEXT y,x 

TAGOFF 

LOCATE 2,24:PRINT"DEMO (J/N)"; 


600 h$=UPPER$( INKEY$) :IF h$="J" THE 

N 1700 ELSE IF h$="N" THEN 610 ELSE 
600 

610 LOCATE 2,24:PRINT” 7 
620 LOCATE 2,1:PRINT sp$ 

630 ° 

640 ANFANGSFSFELD 

650 

660 LOCATE 1,25:PRINT"Anfangsfeld:" 
’ 

670 h$=INKEY$:IF h$="" THEN 670 

680 endi1=ASC( h$) :IF end1<91 THEN en 


di=end1-64 ELSE end1=end1-96 

690 IF endi<1 OR end1>8B THEN PRINT 
CHR$( 7) ;:GOTO 670 

700 LOCATE 16,25:PRINT UPPER$(h$) ; 
710 h1$=INKEY$:IF h1$="" THEN 710 
720 end2=VAL(h1$) :IF end2<1 OR end2 
>8 THEN PRINT CHR$(7);:GOTO 710 

730 LOCATE 17,25:PRINT end2; 

740 PEN D:LOCATE 2,1:PRINT spiel$:P 
EN 1 
750 
760 
770 
780 
790 
800 LOCATE 1,25:PRINT USING"”#AH. ";z 
ug+1; :PRINT"”Feld:"; 

810 h$=INKEY$:IF h$="" THEN 810 

820 end1=ASC( h$) :IF endi<91 THEN en 
di1=end1-64 ELSE endi=end1-96 

830 IF endi<1 OR end1>8 THEN PRINT 
CHR$C7) ;:GOTO 810 

840 LOCATE 16,25:PRINT UPPER$( h$) ; 
850 h1$=INKEY$: IF h1$="" THEN 850 
860 end2=VAL(h1$) :IF end2<1 OR end2 
>8 THEN PRINT CHRA$(7);:GOTO 850 

870 LOCATE 17,25:PRINT end2; 


GOSUB 1510 
LOCATE 1,25:PRINT SPACE$( 12); 


EINGABE 
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880 
890 
900 
910 


GOTO 1320 

GOSUB 1510 

IF zug=64 THEN 970 
GOSUB 1420 

920 IF ende=1 THEN 970 
930 GOTO 800 

940 
950 
960 


970 IF zug<64 THEN 1010 
980 LOCATE 1,25:PRINT"Gratuliere - 


Geschafft" 

990 FOR za=1 TO 4000:NEXT 

1000 GOTO 1030 

1010 LOCATE 1,25:PRINT"Leider nicht 
geschafft"; 

1020 FOR za=1 TO 4000:NEXT 

1030 CLS#1:LOCATE 1,25:PRINT SPACE$ 
(39) ;:LOCATE 1,25:PRINT"Ausdruck (J 
/N)”; 
1040 
1050 
1060 
1070 


Ende 


h$=INKEY$ 
IF h$="n 
IF h$="3" 
GOTO 1040 
1080 GOSUB 1170 
1090 LOCATE 1,25:PRINT"Noch einmal 
(J/N)" 

1100 h$=INKEY$ 
1110 IF h$="n 
1120 IF h$="j" 
1130 GOTO 1100 
1140 ° 
1150 ° 
1160 ” 
1170 FOR i=1 TOD zug 

1180 PARINT#1,USING”##. ";i; 

1190 PRINT#1, CHA$( speicher(i,1) +64 
) ; USING”"#";speicher(i,2); 


THEN 1090 
THEN 1080 


THEN CLS:END 
THEN RUN 


Ausdruck 


1200 IF i/13<>i\13 THEN 1240 

1210 PRINT#1:PRINT#1,"” TASTE"; 

1220 h$=INKEY$:IF h$="" THEN 1220 
1230 CLS#1 

1240 NEXT 

1250 PRINT#1:PRINT#1," TASTE"; 

1260 h$=INKEY$:IF h$="" THEN 1260 
1270 CLS#1 

1280 RETURN 

1290 7” 

1300 ’Ueberpruefung richtige Eingab 
e 

1310 

1320 LOCATE 16,25:PRINT" m; 

1330 IF Feld(end1+1, end2+1) <>1 THEN 


PRINT CHR$( 7); :GOTO 800 

1340 IF end1i=anfi-1 AND (end2=anf2- 
2 OR end2=anf2+2) THEN 890 

1350 IF endi=anf1i+1 AND (end2=anf2- 
2 OR end2=anf2+2) THEN 890 

1360 IF endi=anf1l-2 AND (end2=anf2- 
1 OR end2=anf2+1) THEN 890 


1370 IF endi=anf1+2 AND (end2=anf2- 
41 OR end2=anf2+1) THEN 890 

1380 EOENE CHR$( 7) ;:GOTO 800 

1390 

1400 ’Ueberpr. ob weitere Zuege moe 
glich 

1410 ” 


1420 IF feld(anf1,anf2-1)=1 OR feld 
(anfi1,anf2+3)=1 THEN 1470 

1430 IF feld( anf1+2,anf2-1)=1 OR fe 
ld(anf1+2,anf2+3)=1 THEN 1470 

1440 IF feld(anf1-1,anf2)=1 OR feld 
(anf1+3,anf2)=1 THEN 1470 

1450 IF feld(anfi-1,anf2+2)=1 OR fe 
ld(anfi1+3,anf2+2)=1 THEN 1470 


1460 ende=1 

1470 RETURN 

1480 ’ 

1490 "'ZUEGE SETZEN 

1500 ’ 

1510 LOCATE 16,25:PRINT" “. 

1520 zug=zugt+1 

1530 PRINT#1,USING"##. ";zug; :PRINT 


#1,UPPER$Ch$) ;USING”#" ;end2; 

1540 IF (anfi MOD 2=0 AND anf2 MOD 
2=0) OR (anfi MOD 2=1 AND anf2 MOD 
2=1) THEN PEN 3 ELSE PEN 2 

1550 IF zug=1 THEN 1580 

1560 LOCATE waagl(anf1),senk( anf2) 


1570 PRINT CHRA$( 22) CHR$( 1) sp$CHR$[ 2 
2)CHR$(O) 

1580 anf1=end1:anf2=end2 

1590 feld( anfi1+1,anf2+1)=2 

1600 speicher( zug, 1) =anf1:speicher( 
zug,2) =anf2 


16130 IF (anfi MOD 2=0 AND anf2 MOD 
2=0) OR (anf1 MOD 2=1 AND anf2 MOD 
2=1) THEN PEN 3 ELSE PEN 2 

1620 LOCATE waagl( anfl),senk( anf2) :P 
AINT spiel$:PEN O 

1630 LOCATE waagl( anf1),,senk( anf2) 
1640 PRINT CHR$( 22) CHR$( 1) sp$CHRAF$L 2 
2) CHR$(O) 

1650 PEN 1 

1660 RETURN 

1670 

1680 ’ DEMO 

1690 

1700 LOCATE 2,24:PRINT" ve 
1710 PEN#1,O0 

1720 RESTORE 1830:READ vv$ 

1730 FOR i=1 TO 128 STEP 2 

1740 endi=VAL(MID$( vv$,i,1)) :end2=V 


AL(MID$Cvv$,i+1,1)) 

1750 h$=CHRA$( end 1+64) 

1760 GOSUB 1510 

1770 FOR za=1 TO 400:NEXT za 
1780 NEXT i 

1790 FOR za=1 TO 2000:NEXT 
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1800 CLS#1 

1810 PENf1,1 

1820 GOTO 280 

1830 DATA "112315274867887684725132 
13251738577886748261536546345536446 
34221334162817385775837 182614224335 
566445665475837152311224 1628476887" 


DISC- 
BACKUP 
2,4 


Den Besitzern eines CPC 464 steht leider kein CPM 
2.2 zur Verfügung. Bei dieser Version ist ein sehr 
komfortables menügesteuertes Kopierprogramm ent- 
halten. Es dient in erster Linie dazu, Backup-Kopien 
anzufertigen. 

Mit „Backup 2.4“ unseres Autors Tobias Waldvogel 
ist der gleiche Zweck auch ohne CP/M zu erfüllen, 
womit es auch für den CPC 6128 eine interessante 
Alternative darstellt. 


PROGRAMMBESCHREIBUNG 


Das Disketten-Kopierprogramm erzeugt eine vollstän- 
dige Kopie einer Diskette und kann in Verbindung mit 
einem CPC und einem Diskettenlaufwerk unter 
AMSDOS genutzt werden. Dabei wird ein Zweitlauf- 
werk, falls vorhanden, unterstützt und es können 
Quell- und Ziellaufwerk angegeben werden. 
Es werden alle Sektorenoffsets von 0-255 kopiert. 
Auch verschiedene Sektorengrößen werden berück- 
sichtigt, und es können maximal 16 Sektoren pro Spur 
kopiert werden. 
Standardmäßig werden 42 Spuren kopiert. 
Es ist jedoch auch möglich, die Anzahl der zu kopie- 
renden Spuren durch Eingabe folgender Befehle zu 
verändern: 

MEMORY &9FFF 

LOAD“BACK UP24.BIN“ ,& A000 

POKE &A196,Spur 

POKE &A23C,Spur 

CALL &A000 
Das Programm arbeitet vollautomatisch, fragt nach 
der Kopierrichtung und kopiert bei zwei Laufwerken 
automatisch. Bei einem Laufwerk wird per Lauf- 
schrift zum Diskettenwechsel aufgefordert. 
Noch ein Hinweis der Redaktion: Schlecht geschütz- 
te Programme könnten mit „Backup 2.4“ eventuell 
kopiert werden. Wir glauben, daß die meiste kommer- 
zielle Software besser gegen das Kopieren geschützt 
ist und raten davon ab, das Listing für die Herstel- 
lung von Raubkopien abzutippen. Trotzdem der 
mahnende Hinweis, daß dieses Programm nicht dazu 
benutzt werden darf, in irgendeiner Form das Ur- 
heberrecht zu verletzen. 


W717 Bd 2 2 2 222.22. 2.2.2.2 .2.2°2.2.202.2.22.202.2202.20202 
118 ’* DISC-BACKUP 2.4 * 
128 '* VON * 
138 '* TOBIAS WALDVOGEL * 
ı1a0 ’* FUER * 
158 ’* SCHNEIDER AKTIV * 
168 ’* CPC 464/664/6128 * 


179 Heisse ste t 


188 ’ 

220 ’ 

1B88 DATA AF,32,99,A6,32,97,A6,32,9 
8,A6,32,9C,A6,32,95,A6,= 2816 

1818 DATA 32,96,A6,3E,81,CD,B4,BB,C 
D,E6,A4,84,82,1C0,81,1A,= 1661 

1828 DATA 1A,1C,28,28,28,1D,28,28,1 
F,14,01,42,61,63,6B,75,= 781 

1838 DATA 70,20,32,2E,34,20,77,72,6 
9,74,74,65,6E,28,62,79,= 1356 

1848 DATA 20,54,6F,62,69,61,73,2®,5 
7,61,6C,64,76,6F,67,65,= 1499 

1858 DATA 6C,80,3E,83,CD,B4,BB,21,8 
B,1C,11,80B,4F,CD,66,BB,=- 1418 

1868 DATA 3E,82,CD,B4,BB,21,18,88,1 
1,18,4F,CD,66,BB,AF,CD,= 1687 

1878 DATA B4,BB,21,83,880,11,15,4F,C 
D,66,BB,3E,FF,32,A8,AB,= 1717 

18808 DATA 32,E8,A8,CD,E6,A4,1F,13,8 
2,18,20,4B,6F,78,69,65,= 1661 

1898 DATA 72,65,6E,28,76,6F,6E,28,4 
C,61,75,66,77,65,72,6B,= 1561 

1188 DATA 20,00,C0,73,A5,32,93,A6,C 
D,E6,A4,28,6E,61,63,68,= 1921 

1118 DATA 208,4C,61,75,66,77,65,72,6 
B,20,808,CD,73,A5,32,94,= 1588 

1128 DATA A6,CD,E6,A4,28,18,80,3A,9 
4,A6,21,93,A6,BE,28,32,- 1819 

1130 DATA CD,36,A6,42,69,74,74,65,2 
0,44,69,73,6B,65,74,74,= 1689 

1148 DATA 65,6E,28,65,69,6E,6C,65,6 
7,65,6E,28,75,6E,64,20,= 1473 

1158 DATA 54,61,73,74,65,20,64,72,7 
5,65,63,6B,65,6E,88,CD,= 1599 

11608 DATA 73,A6,AF,32,97,A6,3A,93,A 
6,21,94,A6,BE,20,39,E5,= 2849 

1178 DATA CD,36,A6,42,69,74,74,65,2 
0,51,75,65,6C,6C0,28,44,= 1576 

11808 DATA 69,73,6B,65,74,74,65,28,6 
5,69,6E,6C,65,67,65,6E,= 1632 

1198 DATA 28,75,6E,64,28,54,61,73,7 
4,65,28,64,72,75,65,63,= 1467 

1288 DATA 6B,65,6E,88,C0,73,A6,E1,3 
A,93,A6,CD,D9,A5,CB,6F,= 2381 

1218 DATA F5,3A,93,A6,CC,@8D,AS,F1,2 
8,AC,21,00,01,3A,97,A6,= 1868 

1228 DATA 32,98,A6,E5,3E,03,CD,B4,B 
B,CD,E6,A4,80,52,65,61,= 2126 

1230 DATA 64,69,6E,67,28,54,72,61,6 
3,6B,20,00,3A,97,A6,CD,= 1563 

1248 DATA F@,A4A,AF,CD,B4,BB,E1,CD,B 
A,A3,01,88,13,89,3A,97,= 2168 
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1258 DATA A6,30,32,97,A6,FE,2B,28,® 
5,7C,FE,98,38,C05,3A,93,= 1915 
12608 DATA A6,21,94,A6,BE,28,38,E5,C 
D,36,A6,42,69,74,74,65,= 1949 
1270 DATA 20,5A,69,65,6C,28,44,69,7 
3,6B,65,74,74,65,208,65,= 1438 
1280 DATA 69,6E,6C,65,67,65,6E,28,7 
5,6E,64,28,54,61,73,74,= 1541 
12908 DATA 65,28,64,72,75,65,63,6B,6 
5,6E,808,CD,73,A6,E1,3A,= 1751 
13080 DATA 94,A6,CD,D9,AS,CB,6F,F5,3 
A,94,A6,CC,8D,AS,F1,28,= 2495 
131@8 DATA AD,CB,77,F5,C4,4A,AS,F1,2 
0,AA,CD,E6,A4,8A,0D,08,= 2234 
1320 DATA 21,00,01,3A,98,A6,32,97,A 
6,E5,3E,03,CD,B4,BB,CD,= 1848 
1330 DATA E6,A4,0D,57,72,69,74,69,6 
E,67,20,54,72,61,63,6B,= 168® 
1348 DATA 20,00,3A,97,A6,CD,F®,A4,A 
F,CD,B4,BB,E1,CD,DF,A2,= 2578 
1358 DATA 81,00,13,89,3A,97,A6,3C,3 
2,97,A6,FE,2B,28,88,7C,= 1388 
1368 DATA FE,98,38,C5,C3,86,A1,CD,3 
6,A6,4B,6F,70,69,65,280,= 1974 
1378 DATA 6B,6F,6D,78,6C,65,74,74,2 
E,2@,AE,6F,63,68,6D,61,= 1556 
1388 DATA 6C,20,28,4A,2F,4E,29,808,C 
D,73,A6,FE,4E,CA,82,A2,= 1732 
1398 DATA FE,6E,CA,82,A2,FE,4A,CA,® 
0,AQ,FE,6A,CA,80,AB,C3,= 2465 
1488 DATA 47,A2,3A,80,08,FE,C3,C2,® 
0,00,CD,36,A6,8A,8D,28,= 1414 
14108 DATA 20,42,69,74,74,65,28,53,7 
9,73,74,65,60,20,44,69,=- 1431 
1428 DATA 73,6B,65,74,74,65,28,65,6 
9,6E,6C,65,67,65,6E,28,= 1559 
1430 DATA 75,6E,64,20,54,61,73,74,6 
5,20,64,72,75,65,63,6B,= 1542 
1448 DATA 65,6E,28,88,CD,73,A6,AF,C 
D,D9,A5S,CB,6F,F5,3A,93,= 2255 
1450 DATA A6,CC,8D,A5,F1,28,AB,3E,® 
2,CD,8E,BC,C3,08,08,E5,= 1895 
14608 DATA DD,E1,DD,7E,8D,8B7,C8,22,9 
5,A6,CD,2C,A3,DD,2A,95,= 2362 
1478 DATA A6,DD,4AE,8C,2A,95,A6, 11,1 
0,00,19,41,3A,97,A6,57,= 1419 
1488 DATA 3A,94,A6,5F,DD,E5,D5,C5,E 
5,DD,4E,88,CD,FC,AS,DD,= 2698 
1498 DATA 2A,95,A6,DD,7E,8E,47,21,8 
0,00,29,10,FD,EB,E1,19,= 1745 
1588 DATA C1,D1,DD,E1,DD,23,18,DC,2 
A,95,A6,C9,E5,FD,2A,42,= 2488 
1518 DATA BE,DD,E1,DD,E5,DD,7E,®E,F 
D,77,14,FD,77,54,DD,7E,= 2642 
1528 DATA 8C,FD,77,18,FD,77,58,21,8 
C,A3,47,C5,DD,?7E,88,77,= 1922 
1538 DATA 23,23,23,23,DD,23,1®,F4,3 
A,97,A6,21,8A,A3,C1,C5,= 1755 
1548 DATA 77,23,23,23,23,18,F9,C1,D 
D,E1,DD,7E,®E,21,8D,A3,= 1861 


15508 DATA 77,23,23,23,23,10,F9,3A,9 
4,A6,5F,3A,97,A6,57,3A,= 1511 

1568 DATA 8C,A3,4F,21,8A,A3,CD,88,A 
6,C9,00,00,41,02,00,00,- 1355 

1570 DATA 41,02,08,80,41,02,00,00,4 
1,02,00,00,41,02,00,08,- 268 

15808 DATA 41,02,00,800,41,02,00,00,4 
1,02,00,00,41,02,08,00,= 268 

1598 DATA 41,02,00,00,41,02,00,00,4 
1,02,22,95,A6,CD,51,A4,= 1888 

16088 DATA 2A,95,A6,E5,DD,E1,DD,7E,® 
0,B7,C8,DD,7E,8E,FD,2A,= 2431 

1618 DATA 42,BE,FD,77,14,FD,77,54,E 
5,FD,E1,ED,5B,95,A6,AF,= 2629 

1628 DATA 32,99,A6,86,8C,FD,4E,8%,C 
5,3A,99,A6,47,B7,28,8A,= 1596 

16308 DATA 2A,95,A6,7E,B9,28,8A,23,1 
0,F9,79,12,13,21,99,A6,= 1528 

1648 DATA 34,C1,FD,23,18,DF,3A,99,A 
6,DD,2A,95,A6,DD,77,8C,= 2879 

1658 DATA 2A,95,A6,11,10,88,19,47,3 
A,97,A6,57,3A,93,A6,5F,= 1414 

1668 DATA DD,E5,D5,C5,E5,DD,4E,89,3 
E,FF,32,78,BE,CD,84,A6,= 2448 

1678 DATA AF,32,78,BE,DD,2A,95,A6,D 
D,7E,BE,47,21,808,88,29,= 1747 

1688 DATA 18,FD,EB,E1,19,C1,D1,DD,E 
1,0DD,23,10,03,2A,95,A6,= 2442 

1698 DATA C9,C5,D5,3A,97,A6,57,3A,9 
3,A6,5F,CD,88,A6,CD,C6,= 2321 

1708 DATA A5,81,7E,FB,3E,4A,CD,8C,A 
6,3A,93,A6,CD,8C,A6,CD,= 2821 

1718 DATA CB,A4,3A,80,BF,CB,77,3E,® 
0,20,0C,3A,97,A6,FD,21,= 1785 

1728 DATA 83,BF,FD,BE,808,28,88,DD,2 
A,95,A6,DD,36,80,08,D1,- 1763 

17308 DATA C1,C9,DD,2A,95,A6,DD,36,® 
D,FF,86,8C,C5,81,7E,FB,= 2188 

1748 DATA 3E,4A,CD,@8C,A6,3A,93,A6,C 
D,8C,A6,CD,CB,A4,3A,05,- 1988 

1758 DATA BF,77,23,C1,18,E6,D1,C1,3 
A,97,A6,47,3A,03,BF,B8,= 2868 

17608 DATA 28,02,36,080,23,3A,86,BF,2 
3,77,C9,C5,E5,21,88,BF,= 1391 

17708 DATA 801,7E,FB,ED,78,87,380,FB,8 
7,30,08,8C,ED,78,77,23,=- 1883 

1788 DATA 8D,18,F8,E1,C1,C9,E1,7E,C 
D,5A,BB,23,87,28,F8,E9,- 2468 

1798 DATA C5,8E,88,B7,D6,8A,8C,38,F 
A,00,47,79,CD,807,A5,78,= 1638 

18088 DATA C6,8A,CD,87,A5,C1,C9,C6,3 
0,CD,5A,BB,C9,F5,3E,®2,= 2217 

1818 DATA CD,B4,BB,CD,E6,A4,8A,0D,2 
0,20,45,73,28,69,73,74,= 1818 

1828 DATA 20,6B,65,69,6E,65,28,44,6 
9,73,6B,65,74,74,65,28,= 1449 

1830 DATA 69,6D,28,4C,61,75,66,77,6 
5,72,6B,28,800,F1,C6,41,= 1615 

1848 DATA CD,5A,BB,AF,CD,B4,BB,C3,7 
3,A6,CD,36,A6,44,69,65,=- 2484 
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1858 DATA 28,44,69,73,6B,65,74,74,6 

5,20,69,73,74,20,73,63,= 1475 

1868 DATA 68,72,65,69,62,67,65,73,6 

3,68,75,65,74,7A,74,88,= 1616 

1878 DATA C3,73,A6,CD,81,BB,86,FF,1 

0,FE,CD,9C,A5,FE,61,28,= 2445 

1888 DATA BE,FE,41,28,8C,FE,62,28,8 

6,FE,42,28,04,18,E4,D6,= 1613 

1898 DATA 28,CD,5A,BB,D6,41,F5,CD,8 

4,BB,F1,C9,CD,89,BB,D8,= 2621 

1988 DATA 86,FF,10,FE,3A,9C,A6,3C,3 
2,9C,A6,CB,BF,FE,78,28,= 2143 

1918 DATA EB,3A,9C,A6,CB,7F,CC,81,B 
B,C4,84,BB,EE,88,E6,88,= 2784 

1928 DATA 32,9C,A6,C3,9C,A5S,F5,C5,D 

5,3E,FF,32,5F,BE,81,7E,= 2322 

1938 DATA FA,3E,81,ED,79,D1,C1,F1,C 
9,F5,CD,C6,A5,86,82,21,= 2369 

1948 DATA 81,80,23,7C,B5,28,FB,18,F 
6,3E,84,81,7E,FB,CD,8C,= 1547 

1958 DATA A6,F1,CD,8C,A6,CD,CB,A4,3 

A,00,BF,C9,DF,84,A6,C9,= 2534 

1968 DATA DF,87,A6,C9,DF,8A,A6,C9,D 
F,80,A6,C9,DF,90,A6,C9,= 2918 

1978 DATA CD,83,B9,CD,19,BD,21,88,C 

7,06,88,C05,7E,54,5D,23,= 1721 

1988 DATA 81,4F,808,ED,B@,2B,77,CD,3 
1,A6,C1,18,EE,CD,88,B9,= 1912 

1998 DATA C9,81,81,87,89,C9,CD,59,A 
6,CD,78,BB,22,9A,A6,3E,= 1984 

28088 DATA 82,CD,B4,BB,E1,7E,23,B7,C 

4,5A,BB,28,F8,ES,AF,CD,= 2585 

2818 DATA B4,BB,2A,9A,A6,CD,75,BB,C 
9,CD,78,BB,E5,3E,82,CD,=- 2449 

2828 DATA BA4,BB,CD,E6,AA,8BA,8D,28,2 
0,00,AF,CD,B4,BB,E1,CD,-= 2238 

2838 DATA 75,BB,C9,CD,83,BB,CD, 18,A 
6,CD,89,BB,30,F5,F5,CD,= 2431 

2848 DATA 59,A6,F1,C9,4E,C6,87,52,C 
6,07,66,C6,87,63,C7,07,= 1879 

2858 DATA 5C,C9,87,80,08,008,08,00,8 
0,00,00,00,00,00,00,00,= 388 

2068 ’ 

2878 MODE 2:PRINT"Bitte warten"”:PRI 
NT"Backup 2.4 wird gePOKEd":PRINT:M 

EMORY &9FFF 

2888 zeile=1888:schritt=18 

2898 adr=&ABBU: last=&A69F 

2188 FOR i=1 TO 16 

2118 READ byte$ 

2128 POKE adr,VAL("&"”+byte$) 

2138 sum=-sum+PEEK( adr) 

2148 adr=adr+i1 

2158 NEXT 

2168 READ checksum$:checksum=VAL(MI 
D$( checksum$,3)) 

2178 IF sum<>checksum THEN PRINT"Fe 
hler in Zeile"”;zeile 

2188 IF adr<last THEN sum=8:zeile=z 
eile+schritt:GOTO 2188 


2198 PRINT"Das Programm wird unter 
dem Name "+CHR$( 34) +”"BACKUP24.BIN"+ 
CHR$( 34) +” abgespeichert 

2208 |DISC:SAVE "BACKUP24.BIN"”,b,&A 
DUO ,E69F ‚,EAQB® 


DISC- 
MONITOR 


Disky V2 ist ein komfortabler, anwendungsfreundli- 
cher Diskmonitor mit vielen Optionen. Disky dient 
zum Editieren von Disketteninhalten und Abspei- 
chern. So lassen sich auf einfache Weise gelöschte 
Programme rekonstruieren, ein Kopierschutz 
schreiben und CP/M-Programme ändern. Disky ist 
einfach ein nützliches Tool. 


ZUR BEDIENUNG 


Disky wird einfach mit RUN gestartet. 

Nach einer kurzen Arbeitszeit zeigt sich dann das 

Ladebild mit Informationen über momentan gewähl- 

tes Laufwerk, Spur, Sektor und Format in der ober- 

sten Zeile, dann ein 320 Byte langer Sektorenaus- 

schnitt und zuunterst das Kommandofenster. 

Die Funktionen der Buchstaben soll kurz beschrie- 

ben werden: 

l: Sektor laden. Lädt einen beliebigen Sektor von der 

Diskette und zeigt ihn an. Der Sektor kann System- 

oder Datenformat sein. 

s: Sektor schreiben. Schreibt beliebigen Sektor auf 

Diskette. 

ur Einen Sektor weiter. Nächster Sektor wird gela- 
en. 

—: Einen Sektor zurück. Vorherigen Sektor laden. 

v: Sektorinhalt verändern. Mit dieser Funktion läßt 

sich der Inhalt eines Sektors auf Diskette verändern. 

Dies funktioniert auf recht einfache Weise, denn 

man kann an die zu ändernde Stelle fahren und sie 

überschreiben. Im Veränderungsmodus gibt es ande- 

re Befehle, bzw. Tastenkombinationen, welche wei- 

ter unten beschrieben sind. 

a: Autosave an/aus. Wenn an, dann wird vor jedem 

Laden der aktuelle Sektor gespeichert. 

w: Laufwerk wechseln. Von A zu B oder von B zu 

A. 

b: Tape Backup. Dient zur Datensicherung. Die gan- 

ze Diskette kann auf Band gespeichert und wieder 

zurückgelesen werden. 

f: Bildschirmfarben ändern. Bedienung mit den 

Pfeiltasten. 

e: Beenden 

Die Tastenbefehle für den Veränderungsmodus 

lauten: 

0-9 und A-F: Eingabe neuer Hexwerte. 

Pfeiltasten: Bewegen des Cursors 

Shift u. Pfeiltasten: Eine Seite hoch, bzw. runter 

Enter: Sektor ab Cursorposition mit Bitmuster 

füllen. 

Copy: Umschalten von Hex- auf ASCII-Eingabe und 

umgekehrt. 

DEL: Sektor erneut von Diskette einladen und da- 

mit Änderungen löschen. 

Tab: Zurück zum Hauptmenü 
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LISTING 


N 1 177 


1 2 2 2 2 22:22 .2.2.2.2:2.2°2.2.2:2.2222.27222 202 222.0223 
2 8 DISKETTENMONITOR * 
3 '# VON * 
4a 8 MICHEAL FOLZ ® 
5 '# FUER # 
6 '#* SCHNEIDER AKTIV * 
7 8 CPC 464/664/6128 * 
8 '* LADEPROGRAMM * 
[e BEZ = 2 2 2.2.2 02.2.2 2.2.2.2 2.2.2 .2.2.2.2.2.2.2.2.2.2.2.22 


18 CALL &BBAE:CALL EBBFF:CALL &BC65 
:MODE 2:INK 1,24:INK 8,8:BORDER 8:5 
YMBOL AFTER 256:CLEAR:MEMORY &3FFF: 

GOSUB 28:RUN"”d2.8981" 

28 FOR I=8 TO &E10D STEP &18:2Z=8:FOR 
J=I TO I+&F:READ A$:POKE J+&64B08,V 
ALL"E”"+A$) :Z=Z+VAL( "&E”+A$) :NEXT J:R 
EAD A$:IF VAL("&"+A$)<>Z TH 

EN GOTO 48 

38 NEXT :RETURN 

aB PRINT:PRINT "Checksum error in Z 
eile";65+( I/&18)*1;” !!!!":STOP 

5ß DATA CD,B5,48,D0DD,6E,890,DD,66,®1, 
DD,4E,82,DD,56,84,0D,8792 

6U DATA SE,86,CD,46,48,CD,66,C6,DA, 
C3,48,CD,4C,48,CD,C3,8876 

78 DATA 48,18,DD,CD,BS,48,DD,6E,0®, 
DD,66,81,DD,4E,82,DD,8798 

88 DATA 56,804,DD,5E,86,CD,46,48,CD, 

4E,C6,CA,C3,48,CD,4C,87BS 

98 DATA 48,CD,C3,48,18,DD,3A,5B,48, 

81,4F,C9,3A,5C,490,B7,870808 

188 DATA 28,79,3A,5B,48,EE,88,32,5B 
‚408,C0C9,48,00,00,080,008,84B2 

118 DATA 80,DD,6E,88,DD,66,81,DD,5E 
‚82,0DD,56,83,B7,ED,5A,8788 

128 DATA 86, 12,C5,E5,86, 18,7E,CD,A1 
‚40,23,3E,28,CD,5A,BB,8667 

138 DATA 18,F4,3E,3C,CD,6F,BB,86, 18 
‚E1,7E,FE,28,30,802,3E,9678 

148 DATA 2E,FE,88,38,82,3E,2E,CD,S5A 
‚BB,23,18,ED,C1,18,D2,96F7 

158 DATA C9,F5,1F,1F,1F,1F,CD,AA,4®8 
‚F1,E6,8F,C6,98,27,CE,8822 

168 DATA 48,27,C3,5A,BB,AF,32,5C,48 
‚BE,087,CD,8F,B9,79,32,8611 

178 DATA 5D,48,C9,3A,5D,48,4F,CD,8F 
‚B9,C9,86, 18,3E,87,CD,8612 

188 DATA SA,BB,18,F7,33,33,3E,FF,32 
‚5C,48,C9,3E,3D,21,8C,85FE 

198 DATA 41,11,80,5A,CD,A1,BC,D4A4,CB 
‚48,C9,3E,3D,21,8C,41,8667 

2088 DATA 11,88,5A,CD,9E,BC,D4,CB,48 
‚cC9,3E,3D,21,8C,41,11,8634 

218 DATA 80,5A,D8,32,5D,48,FE,83,C8B 
‚CD,CB,48,08,00,008,00,85A2 


1 RER SEE SE TEE SEE SCH SESE HE SE SEE SE SEAT SE SE IE EEE 
2:78 DISKETTENMONITOR * 
ae HAUPT-PROGRAMM * 
a tr VON * 
5, 6 MICHAEL FOLZ # 
6 '* FUER * 
A: SCHNEIDER AKTIV * 
B * CPC 464/664/6128 * 
9 ORTES TESESEIE HE SEHE SEE SE SE TE SEE TEE SEE SIEHE 
10 CALL EBBAE:CALL EBBFF:CALL &BC65 


:MODE 2:INK 8,8:BORDER 8:INK 1,24:C 
LS 
28 WINDOW#1,6,88,4,21:WINDOW#2,1,8® 
‚23,25:WINDOW#3,1,88,1,2:WINDOW#A, 1 
‚3,4,21:PEN#1,1:PAPER#1,8:PEN#2,8:P 
APER#2,1:PEN#3,1:PAPER#3,8:PEN#4,®: 
PAPER#4,1:CL5#1:CL5#2:CL543:CL5#4 
38 LOCATE 6,3:PRINT CHR$( 24) ;:FOR i 
=8 TO 15:PRINT" "HEX$Ci)"” ";:NEXT:P 
RINT TAB(65) ;:FOR i=® TO 15:PRINT H 
EX$(i); :NEXT:PRINT CHR$( 24) ;:FOR i= 
sh TO sh+272 STEP &18:PRINT#4,HEX$( 
1,3) ; :NEXT 
AB WINDOW SWAP 1:LOCATE 28,4:PRINT" 
>>> DISKY V2 <<<":LOCATE 8,6:PRIN 
T"(C) ESCape! Software 1986 - gesch 
rieben von Michael Folz"”:LOCATE 3,1 
8:PRINT"Alle Rechte, insbesondere V 
erbreitung und Vervielfaeltigung, v 
orbehalten":WINDOW SWAP 1 
SB CLEAR:ON BREAK GOSUB 818:MEMORY 
G3FFF:DEFINT a-z:DIM a$( 64) :DEF FNd 
eek( x) =UNT( PEEK( x) +256#PEEK( x+1)) :D 
EF FNXP(b,a,sh)=((b-sh)MOD 16) #( 1-2 
*(a=8)) +59*a+1:DEF FNYP(b,sh)=((b-s 
h)\16) +1 
68 com$="L5+;-VE"+CHR$( 248) +CHR$( 24 
1) +"FWAB” : com2$=CHR$( 248) +CHR$( 241) 
+CHR$L 242) +CHR$( 243) +CHA$( 244) +CHR$ 
( 245) +CHRA$( 13) +CHA$( 127) +CHR$( 224) : 
f1=-24:31=84080:a2=-64023:a3=-64861:a4 
=33-13:385=6410C:a7=&40DC : a6=-640EB: a 
8=6AQFA 
78 POKE &EBE78,255:G05SUB 758 
88 WINDOW SWAP 2:CLS:PRINT"”>>> Bitt 
e Funktion auswaehlen...<l,s,+,-,v, 
a,w,b,f,e, "CHA$( 248)”, "CHR$L 241) ">" 
;:GOSUB 788:WINDOW SWAP 2:IF INSTR( 
com$,a$) THEN ON INSTR( com$, a$) GOSUB 
380,390,4280,4280,400,440,660,670,68 
0,290,278,258,98:G0T0 88 ELSE 88 
98 CLS#1:CL5#2:PRINT#Z2,">>> Backup 
v2...”:PRINT#2,CHR$( 18) TAB( 63)": Zie 
1"CHR$( 13) "Dauer..."TAB( 15) "Start: 


, 
188 PRINT#1,CHR$( 18) "Backup: 3 Moeg 
lichkeiten, bitte waehlen. "CHR$( 18) 
:PRINT#1,"1 — Disk -> Band 2 - Ba 
nd -> Disk 3 - Vergleich Band -> 
Disk :"::GDOSUB 698: v=ASC( a$) -48:PR 
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INT#1,a$:IF v<1i1 OR v>3 THEN 98 ELSE 
ON v GOTO 118, 158,198 
118 WINDOW SWAP 1:PRINT CHR$( 18) "Ba 
ckup: Ganzen Disketteninhalt auf Ba 
nd sichern. "CHRA$( 18) :PRINT CHR$( 18) 
CHR$( 18) "Backup: Bitte zu sichernde 
Diskette und leeres Datenband einl 
egen."” 
128 PRINT TAB(9)"Tasten <REC> und < 
PLAY> am Kassettenrekorder druecken 
. "CHR$C 10) :PRINT TAB( 9) "Anschliesse 
nd <Enter> zum Beginn des Sicherns 
druecken." 
138 GOSUB 698:IF a$<>CHR$( 13) THEN 1 
38 ELSE PRINT CHR$( 18) CHR$( 18) "Back 
up: Sicherungsvorgang beginnt - Dau 
er: ca. 15 Minuten."”:CALL &BC6E:FOR 
i=1 TO 2888:NEXT:CALL &BC71 
148 SPEED WRITE 1:FOR i=® TO 39 STE 
P 5:PAINT#2," <"HEX$Li/5+1)"> ";:FO 
AR j=-i TO i+4:FOR 1=8 TO 8:CALL al,d 
‚3,1+1,a5+(( j-i) #9+1) #512:NEXT: NEXT 
:CALL a6:NEXT:CLS#2:PRINT#2,">>> Ba 
ckup beendet...”":GOTO 758 
158 WINDOW SWAP 1:PRINT CHR$( 18) "Ba 
ckup: Disketteninhalt von Band lese 
n und zuruecksichern."CHR$( 18) :PRIN 
T CHA$( 18) CHR$( 18) "Backup: Bitte fo 
rmatierte Diskette und Band mit Sic 
herheitskopie einlegen.” 
168 PRINT TAB(9)"Taste <PLAY> am Ka 
ssettenrekorder druecken.":PRINT TA 
B(9)"Anschliessend <Enter> zum Begi 
nn des Zuruecksicherns druecken." 
178 GOSUB 6998:IF a$<>CHR$( 13) THEN 1 
38 ELSE PRINT CHR$( 18) CHR$( 18) "Back 
up: Rueckschreibevorgang beginnt - 
Dauer: ca. 15 Minuten." 
188 FOR i=B8 TO 39 STEP 5:PRINT#f2,” 
<"HEX$LIi/S+1)"> ";:CALL a7:FOR j=i 
TO i+4:FOR 1=8 TO 8:CALL a2,d,j,1+1 
‚a5+l( J-i)#9+1)#512:NEXT:NEXT:NEXT: 
CLS#2:PRINT#2,">>> Backup beendet.. 
.":GDOTO 758 
198 WINDOW SWAP 1:PRINT CHR$( 108) "Ba 
ckup: Disketteninhalt mit auf Band 
gesicherter Kopie vergleichen. "CHR$ 
(18) :PRINT CHR$( 18) CHR$C 18) "Backup: 
Bitte formatierte Diskette und Ban 
d mit Sicherheitskopie einlegen.” 
298 PRINT TAB(9) "Taste <PLAY> am Ka 
ssettenrekorder druecken."”:PRINT TA 
B(9)"Anschliessend <Enter> zum Begi 
nn des Vergleichs druecken."” 
218 GOSUB 698:IF a$<>CHR$( 13) THEN 1 
38 ELSE PRINT CHR$( 18) CHR$( 18) "Back 
up: Vergleichsvorgang beginnt - Dau 
er: ca. 15 Minuten.” 
228 FOR i=B TO 39 STEP 5:PRINT#2," 
<"HEX$(i/5+1)"> ";:FOR j=si TO i+A:F 


OR 1=® TO 8:CALL a1,d,j,1+1,a5+(Jj-i 

)#9+1)#*512:NEXT:NEXT:CALL aß:NEXT:C 

LS#2 

238 CLS#2:IF PEEK(a4+1)=3 THEN PRIN 

T CHR$( 18) "Backup: IFEHLERI Dateien 
sind nicht identisch - "CHR$(24)" 


Taste druecken "CHR$( 24) 
248 GOTO 75% 
258 z=z XOR 1:LOCATE 73,1:IF z THEN 
PRINT"AutoSave"ELSE PRINT CHR$( 18) 
268 RETURN 
278 WINDOW SWAP 2:CLS:PRINT"Laufwer 
k wechseln...aktives Laufwerk ist " 
CHR$(65+d) :IF d THENIA ELSEIB 
288 WINDOW SWAP 2:IF d=PEEK( EA792)T 
HEN PRINT#2,CHR$( 11) CHR$( 28) CHR$( 198 
)">>> Fehler: Laufwerk ";CHR$((d XO 
R 1)+65);" ist nicht verfuegbar.";: 
FOR i=1 TO 1588:NEXT:RETURAN ELSE d= 
d XOR 1:RETURN 
298 CLS#2:PRINT#42,">>> Farben aende 
rn...aendern mit Cursortasten, uebe 
rnehmen mit <Enter>.":PRINT#2,CHR$( 
18) "Schreibfarbe..."”; 
388 GOSUB 690:IF a$=CHRA$( 13) THEN 32 
8 ELSE IF a$=CHR$( 242) THEN Fi=f1-1 
ELSE IF a$=CHRA$( 243) THEN fi=f1+1 EL 
SE 388 
318 fF1=(F1-26*( Fi=-1))MOD 27:INK 1, 
f1:G0TO 388 
328 PRINT#2,CHR$( 13) "Hintergrundfar 
be...”; 
338 GOSUB 698:IF a$=CHR$( 13) THEN 35 
8 ELSE IF a$=CHR$( 242) THEN f2=f2-1 
ELSE IF a$=CHRA$( 243) THEN f2=f2+1 EL 
SE 338 
348 f2=( f2-26*( f2=-1))MOD 27:INK ®, 
f2:GOTO 338 
358 PRINT#2,CHR$( 13) "Randfarbe"CHR$ 
(18); 
368 GOSUB 698:IF a$=CHR$( 13) THEN CL 
5#2:RETURN ELSE IF a$=CHR$( 242) THEN 
f3=f3-1 ELSE IF a$=CHR$( 243) THEN f 
3=f3+1 ELSE 368 
378 fF3=[ F3-26*( f3=-1))MOD 27:BORDER 
f3:G0OTO 368 
388 GOSUB 888:WINDOW SWAP 2:CLS:PRI 
NT”>>> Sektor laden... Spur #"”;:1= 
2:G0SUB 7298:IF v>39 THEN WINDOW SWA 
P 2:G0T0 388 ELSE t=v:PRINT, "Sektor 
#" ;:G0SUB 7108:IF v>8 THEN WINDOW S 
WAP 2:G0TO 388 ELSE s=v:WINDOW SWAP 
2:G0TD 758 
398 WINDOW SWAP 2:CLS:PRINT"”>>> Sek 
tor speichern... Spur #";:1=2:605U 
B 728:IF v>39 THEN WINDOW SWAP 2:60 
TO 398 ELSE w=v:PRINT,"Sektor #";: 
DOSUB 718:IF v>8 THEN WINDOW SWAP 2: 
GOTO 398 ELSE WINDOW SWAP 2:CALL a2 
‚d,w,v+1,35:RETURN 
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ET 


» 


LISTING | 


408 GOSUB 889:s=s-1:IF s=-1 THEN s= 

8:t=t-1:IF t=-1 THEN s=®:t=8:PRINT 
CHR$( 7) ; : RETURN 

418 GOTO 758 

428 GOSUB 889:s=s+1:IF s=9 THEN s=® 
:t=t+1:IF t=39 THEN s=8:t=39:PRINT 

CHR$( 7) ; :RETURN 

438 GOTO 758 . 

448 f=B8:a=8:b=sh:GOSUB 659:WINDOW S 

WAP 1 

AS® LOCATE FNXP(b,1,sh) ,‚FNyp(b,sh): 
CALL &BBBA:LOCATE FNXP(b,®8,sh) +F*#NO 
T a,FNYP(b,sh) :G0OSUB 698:LOCATE FNX 
PCb,1,sh) ,FNyp(b,sh) :CALL &BBBA 

468 IF a$=" "THEN WINDOW SWAP 1 
:RETURN ELSE IF INSTR( com2$ , UPPER$( 
a$)) THEN ON INSTA( com2$,UPPER$(.a$)) 
GOSUB 5290,5390,548,588,568,588, 688,6 
48,630:G0T0 458 

478 IF a=8® THEN v=ASC(UPPER$(a$))-4 
B8+7#C[UPPER$La$)>"@") :IF v<dB OR v>15 
THEN 458 ELSE IF f THEN w=( PEEK(b+ 
a5)AND NOT &EF)+v ELSE w=( PEEK(b+a5) 
AND NOT EFB)+v*16 ELSE IF a$<"” "OR 
a&>CHRA$( 127) THEN 458 ELSE w=ASC(a$) 
488 LOCATE FNXP(b,8,sh) ,‚FNYP(b,sh): 
PRINT HEX$(w,2) ;:LOCATE FNXP(b,1,sh 
),FNYP(b,sh) :IF w<32 OR w>127 THEN 
PRINT".";:ELSE PRINT CHR$(w); 

498 POKE b+a5,w:GOSUB 589:G0T0 458 
5088 IF a THEN b=b+1 ELSE IF f THEN 
f=-98:b=b+1 ELSE f=-1 

518 IF b-sh>287 THEN 588 ELSE RETUR 
N 

528 b=b-16:IF b-sh<B THEN 568 ELSE 
RETURN 

538 b=b+16:IF b-sh>287 THEN 
E RETURN 

548 IF a THEN b=b-1 ELSE IF f THEN 
f=8 ELSE f=-1:b=b-1 

S58 IF b-sh<B THEN 588 ELSE RETURN 
568 IF sh=8 THEN b=8:f=8:RETURN ELS 
E sh=8:CL5:WINDOW SWAP 1:GDSUB 798: 

WINDOW SWAP 1:IF b-sh>287 THEN b=8 

578 RETURN 

588 IF sh=224 THEN b>511:f=-1:RETUR 

N ELSE sh=224:CL5:WINDOW SWAP 1:6G05 

UB 798:WINDOW SWAP 1:IF b-sh<Bd THEN 
b=224 ELSE IF b>511 THEN b=511:f=- 
1 

598 RETURN 

688 WINDOW SWAP 2:PRINT CHR$( 11) CHR 

$(28)”>>> Sektor ab Byte #"”HEX$(b,4A 

J”" mit Bitmuster fuellen.":PRINT"Bi 

tmuster in Hex: #”;:1=2:G0SUB 72:73 

=v:PRINT, "Wieviele Bytes: #"”;:1=3:G 

0SUB 728 

618 IF b+v>511 THEN v=512-b 

628 FOR i=8 TO v:POKE i+tb+a5, j:NEXT 
:LOCATE 1,2:PRINT CHR$( 28) : WINDOW S 


588 ELS 


WAP 2:CL5:WINDOW SWAP 1:G0OSUB 788:W 
INDOW SWAP 1:G0OSUB 658 :RETURN 

639 a=a XOR 1:IF a=1 THEN PRINT#2," 
ASCII"”;CHR$( 13) ; :RETURN ELSE PRINT# 
2,” Hex";CHA$( 13) ; :RETURN 

648 WINDOW SWAP 1:G6G05UB 758:WINDOW 


SWAP 1:RETURN 

658 CLS#2:PRINT#2,">>> Sektorinhalt 
veraendern...<"”CHR$( 248) " , "CHR$( 24 
1)”, "CHA$( 242)” , "CHA$( 243) ",Shift+p 
‚shift+q,Del,Enter,Copy, Tab>":PRINT 

#2:PRINT#2," Hex-Modus gewaehlt - 

Aenderungen loeschen mit <Del>, zum 
Hauptmenu mit <Tab>";CHR$( 13) ; :RET 
URN 

668 WINDOW SWAP 2:CLS:PRINT">>> Pro 
gramm beenden - sicher (j/n) ";:605 
UB 788:WINDOW SWAP 2:IF a$="J"THEN 
PEN 1:PAPER 8:MODE 2:END ELSE RETUR 
N 

678 IF sh=B8 THEN RETURN ELSE sh=8:G 
0TO 798 

688 IF sh=224 THEN RETURN ELSE sh=2 
24:G0T0 798 

698 a$="":CALL &EBBBA:WHILE a$="":a$ 
=INKEY$:WEND:CALL &BBBA : RETURN 

788 GOSUB 699:a$=UPPER$( a$) :RETURN 
718 GOSUB 788: v=ASC( a$) -48+7#( a$>"e@ 
"):IF a$=CHR$( 13) THEN v=8:RETURN EL 
SE IF v<® OR v>15 THEN 718 ELSE PRI 

NT a$; :RETURAN 

728 aa$="":FOR i=1 TO 1:605UB 710:I 
F a$=CHRA$( 13) THEN 748 

738 aa$=-aa$+ta$:NEXT 

748 v=8:FOR i=1 TO LEN(aa$) :v=-v+( AS 

C(MID$( as$,i,1))-48+7*( MID$(aa$,i,! 
J>"@e"))*[16°LLEN(aa$) -i)) :NEXT:RETU 
AN 

758 CALL a1l,d,t,s+1,a5:LOCATE 1,1:P 
RINT"DISKY V2 >>> Laufwerk "CHR$( 

d+65)" Spur A"HEX$(t,2)" Sektor # 
"HEX$(s,2)” "”;:PRINT"”Format: #"”;HE 

X$LPEEK(aA) ,2)"” ";:IF PEEK( a4) =6408 
THEN PRINT” (CP/M)"”;ELSE PRINT”( AM 

SDOS)"; 

768 IF z THEN PRINT" 
SE PRINT CHR$( 18); 

778 CLS#1:IF sh<>B THEN sh=8:G60T0 7 

98 

7858 WINDOW SWAP 1:CALL a3,sh,a5:WIN 

DOW SWAP 1:RETURN 

798 FOR i=sh TO sh+272 STEP &18:PRI 

NT#4,HEX$(i,3); :NEXT:GOTO 788 

888 IF z THEN CALL a2,d,t,s+1,a5:RE 
TURN ELSE RETURN 

818 RUN 


AutoSave";EL 
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xX*k JANUAR 1987 XXX *XX JULI 1987 xXkk 
MONTAG DIENSTAG MITTWOCH DONNERST FREITAG SAMSTAG SONNTAG MONTAG DIENSTAG MITTWOCH DONNERST FREITAG SAMSTAG SONNTAG 
ı 3 2 3 4 1 2 3 4 5 
5 6% 7 ß 9 10 ii 6 7 8 9 10 11 12 
12 13 14 15 16 17 18 13 14 15 16 17 18 19 
19 20 21 22 23 24 25 20 21 2 23 24 25 26 
26 27 28 29 30 3a 27 28 29 30 3a 
1. Neujahr 6. Heilige drei Koenige 
***X FEBRUAR 1987 xX%*X XXX AUGUST 1987 **kX 
MONTAG DIENSTAG MITTWOCH DONNERST FREITAG SAMSTAG SONNTAG NONTAG DIENSTAG MITTWOCH DONNERST FREITAG SANSTAG SONNTAG 
1 | 2 
2 3 4 5 6 7 8 3 4 5 6 7 8 9 
9 10 11 12 13 143 15 10 11 12 13 14 15 16 
16 17 18 19 20 21 22 17 18 19 20 21 22 23 
23 24 25 26 27 2 24 25 26 27 28 29 30 
„1 
«nes KALENDER 
Über Sinn’ und Nutzen eines Kalenders muß man 
x**xk MAERZ 19wohl nichts schreiben. Jeder benötigt ihn, ohne daß BER 1987 xkX 
SAnlnlnnn nn nn darüber viel Worte zu verlieren wären. Lassen wir also ---------------------------------- 
MONTAG DIENSTAG MITTWOCH DONNERSIlIeber Rudolf Bodinger mit seiner Programmbeschrei- DONNERST FREITAG SAMSTAG SONNTAG 
 —_— bung zu Worte kommen. Bannanananmnn ne 
3 4 5 6 
2 3 42 5  Programmbeschreibung: 19 1 12 13 
- 2 r Y Das Programm wurde in Basic auf dem Schneider CPC H > = 2 
23 24 25 26 464 geschrieben und als Drucker wurde ein Panasonic 
% Ni KX-P1091 verwendet. Eine Anpassung an andere Prin- 
3. Fastnacht 4. Ascı ter-Modelle dürfte kein Problem sein. Die Zeilen, in 
E 5 welcher die Druckeranweisungen stehen, sind im 
Listing mit Doppelkreuzen (###) gekennzeichnet. 
xkk APRIL 19Der Kalender kann ab dem Jahre 1800 bis zum Jahre ER 1987 xkkXk 
PREISE SOHN SRERIRNFRRTSENNE 2099 monatlich ausgegeben und, wenn gewünscht, 8&- _____---_222222222------—--___- 
MONTAG DIENSTAG MITTWOCH Donnersidruckt werden. Dabei hat man die Wahl zwischen dempgyNERST FREITAG SAMSTAG SONNTAG 
ee a ie Monat oder dem ganzen Jahr, welches auf eine DIN ----_----- cc 
N 2 A4-Seite paßt. Jahre vor 1900 werden ohne Feiertage, N 2 3 4 
6 7 B g ansonsten immer mit Feiertagen ausgegeben. Dazu ge- 8 9 10 1 
13 14 15 16 gg hören auch andere Termine wie etwa der Fasching. 15 16 17 18 
an a Pr) 33 Will man einen Jahreskalender ausdrucken, braucht pr) 73 24 25 
97 28 29 30 nur das Jahr eingegeben zu werden, ansonsten erfor- pr 30 A 
dert das on auch noch rn er a 
‚wünschten Monates. Ein Beispiel für den März : 
16. a ne Monat? 3 (ENTER) 
B en en hdem d 6M 
eim Jahresausdruck muß, nachdem die ersten 0- BER 
2 ee MAR IT nate gedruckt sind, das Blatt an den Anfang zurück- .________ er ETHERNET 


KONTAG 


1. Naifeiertag 10. Muttertag 28. Christi Himmelfahrt 


DIENSTAG MITTWOCH Domwersigedreht und eine Taste gedrückt werden, warum DONNERST FREITAG SAMSTAG SONNTAG 


-—— | |nnmänmmnmanmnnmmannanmmannannnnnnannnnnnnn nenn nn nn ..nn.n..munnnnnnnnannnnnnnnnmannnnnnnnnnnannnnnnnnn nun nn 


1 2 3 138 
F) 6 7 8 9 10 8% 22 3 4 y 6 7 8 
12 13 14 15 16 17 9 10 11 12 13 14 15 
19 20 2 22 23 24 16 17 18822 19 20 21 22 3 
26 27 2838 29 30 a 24 25 26 27 28 29 3 


i. Allerheiligen 2. Allerseelen 1B. Bus und Bettag 
22. Totensontag 29. 1.Advent 


xXX JUNI 1987 XXX x*k* DEZEMBER 1987 XkKX 
NONTAG DIENSTAG MITTWOCH DONNERST FREITAG SAMSTAG SONNTAG MONTAG DIENSTAG MITTWOCH DONNERST FREITAG SANSTAG SONNTAG 
1 2 3 4 E} 6 2 1 2 3 4 E) 638 
er 9 10 11 12 13 14 7 8 9 10 11 12 13 88 
15 16 133 183% 19 20 21 14 15 16 17 18 19 20 38 
22 23 24 25 26 27 28 21 22 23 un 52 21 27 
29 30 28 29 30 31 38 


7. Pfingstsonntag 8. Pfingsteontag 
17. Gesetzlicher Feiertag 18. Fronleichnam 


6. 2.Advent 13. 3.Advent 20. 4.Advent 24. Heiliger Abend 
25. 1.Weihnachtstag 26. 2.Weihnachtstag 31. Silvester 
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LISTING 


ID FRE seat est lee EEE EEE SEE SESESE SE SE SEE SEE 


12 *%*  IMMERWAEHRENDER KALENDER #* 
14 '* VON * 
16 ’* RUDOLF BODINGER * 
18 ’* FUER * 
20 ’* SCHNEIDER AKTIV * 
22 '# CPC 464/664/6128 #* 


24 RRRRHRRHRRRHRHRHRHREISTEIRIEINE NEIN 
26 

30 ’Variablenliste 

32 ’ali)=Anzahl der Tage je Monat 
34 'b$= Monat und Jahr 

36 ’d$=Druckabfrage 

38 ’m,j=-Datum (Monat, Jahr) 

40 *31-j4=Jahresberechnung 

42 *°j$=Druckabfrage fuer Jahresausd 
ruck 

44 "m$=-Monatsname 

46 ’mm,q,gqi,y=-Zaehler fuer Tabs 

48 ’os$=Feier- bzw. denkwuerdige Ta 


50 ’s=Anzahl der Tage des jeweilige 
n Monats 

52 't=Gesamtzahl der Tage ab Jahres 
datum-1800 bzw. -1900 

54 't2=Daten zur Bestimmung von Ost 
ern 

56 'text$=feiert$+feiert1$ (Stringl 
aenge der Feiertage je Zeile) 

58 ’w=Tag am Monatsersten 

60 'w$=Tagesname 


70 ’Die uebrigen Variablen zur Best 
immung der Feiertage sind 

72 "aus den Namen der Feiertage ers 
ichtlich. 

74 'Z.B.: 
stnacht 

76 ’kar=-Karfreitag, karm=-Monat in d 

em Karfreitag faellt. 

78 

80 ’Zur Beachtung: Kalenderausgabe 

ohne Feiertage ab 1800 bis 2099 

82 ’Kalenderausgabe mit Feiertagen 

ab 1900-2099 

84 ’Nach Kalenderausgabe eine Taste 
druecken um zur Neueingabe zurueck 
zukehren 

86 ’EFin Jahresausdruck passt auf ei 
ne DIN A4 Seite. Nachdem die ersten 
sechs 

88 ’Monate gedruckt sind, haelt der 
Drucker um die Seite an den Anfang 
zurueck- 

90 ’zudrehen. Anschliessend eine Ta 
ste druecken um Druckausgabe fortzu 
setzen. 

92, 

94 ’Zeilen mit Druckanweisungen sin 
d mit ’#4#’° (Doppelkreuzen) versehe 


fa=Tag, fam=-Monat fuer Fa 


n 
96 "um das auffinden der Zeilen bei 
Druckeranpassung zu erleichtern. 

98 "#EFHRR Programmbild Frr#t## 


100 BORDER 10:MODE 1 

110 WINDOW#1,4,37,4,22 

120 TAG:FOR i=8 TO 40 STEP 32:MOVE 
i,i:DRAWA 0,399-i#2,1:DRAWR 639-1i*2 
‚0, 1:DRAWR 0,-399+1*2,1:DRAWA -639+ 
i1#22,0,1:NEXT:TAGOFF 

130 INK 0,0:PAPER#1,1:PEN#1,0:CL5#1 
140 LOCATE 2,2:PARINT STRING$( 38, "#" 

) 

150 FOR i=3 TO 23:LOCATE 2,i:PRINT" 
=" NEXT 

160 FOR i=3 TO 23:LOCATE 39,1i:PRINT 
"&"INEXT 

170 LOCATE 2,24:PRINT STRING$( 38,"* 
”) 

175 TAG:MOVE 160, 148:DRAWR 0, 100,0: 
DRAWR 300,0,0:DRAWR 0,-100,0:DRAWR 
-300,0,0 

180 TAGOFF:LOCATE#1,10,9:PRINT#1,"I 
mmerwaehrender" 

185 LOCATE#1,10,11:PRINT#1,"K AL E 
N DE R" 

190 FOR I=1 TO 3000:NEXT:INK 1,26,2 
:FOR I=1 TO 3000:NEXT:INK 1,26 

200 ’*#### Kalenderprogramm ##F##% 

210 CLEAR:MODE 1:DIM af 12) ,‚m$( 12) 

220 WINDOW#1,4,37,4,22:PAPER#1,0:PE 

N#1,1:CL54#1 

230 LOCATE#1,6,4:PRINT#1,"Wenn Ausg 

abe auf Drucker" 

240 LOCATE#1,6,6:PRINT#1,"erwuensch 
t, Drucker klar" 

250 LOCATE#1,5,8:PRINT#1,"machen un 
d Taste j drucken," 

260 LOCATE#1,9,10:PRINT#1,"andernfa 
lls Taste n." 

270 d$=INKEY$:IF d$<>" j"AND d$<>"n" 

THEN 270 

280 IF d$<>"j"THEN 330 

290 PRINT#8,CHR$( 27) ;"A”;CHR$(S); ” 

HHHHHHHHHH Zeilenvorschub 

295 WIDTH 132 

300 LOCATE#1,9,14:PRINT#1,"Jahresau 
sdruck? 3j/n" 

310 j$=INKEY$:IF j$<>"j"AND j$<>"n" 
THEN 310 

320 "seenueseeneen Datumeingabe ##* 

RHRHHRHRAHRTHEN 


330 CLSf#1 

340 LOCATE#1,6,4:PRINT#1,"Geben Sie 
das Datum ein!"”:IF 3j$="j"THEN m=1: 

GOTO 380 

350 LOCATE#1,6,10:PRINT#1, "Monat" 
360 LOCATE#1,12,10:INPUT#1,m 

370 IF m>12 OR m<=0O THEN GOSUB 1120 
:GOSUB 1130:CL5#1:60T0O 340 


110 


LISTING 


380 LOCATE#1,6, 12:PRINT#1,"Jahr" 
390 LOCATE#1,12,12:INPUT#1I,j 

400 IF j<1800 OR j>2099 THEN GOSUB 
1120:G60S5UB 1140:LOCATE#1,12,12:PRIN 
T#1,5PC(6) :G0OTO 380 

410 3j4=j-1900: j=j-1800 

420 IF j/4=j\4 AND j/100<>j\100 TH 
EN j3=4 ELSE j3=5 

430 IF j=200 THEN 3j3=4 

440 MODE 2:PAPER O:PEN 1:PAPER#1,1: 
PEN#1,0:a( 1) =31 

450 IF j3=4 THEN a(l2)=29 ELSE a(l2)= 
28 ’##### wenn Schaltjahr dann Feb,.= 
29 T. ### 

460 al 3) =31:a(4)=30:al 5) =31:al 6) -30 
:3( 7)=31:a(8)=31:a(9) =30:al 10) =31:a 
( 11)=30:a( 12) =31 


470 FOR i=1 TO m:IF i<m THEN s=st+ta( 
i) 

480 IF i=m THEN 500 

490 NEXT 


500 z=al i) IHREM IE gesuchte 
r Monat Hatten 

510 j=j-1:3j1=3j\4-3\100: j2=Jj-3j1’#** 

Anzahl der Schalt jahre=j\4-j\100 #* 

# 

520 t=t+3j1*366+j2*365+Ss 

530 IF j=199 THEN t=t+1’### Das Jah 

r 2000 ( 1800+199+1) ist Schalt jahr 

er 

540 w=t+1-(INT(t/7)*7) 

550 LOCATE 2,2:PRINT STRING$( 78,CHR 

$(227)) 

560 LOCATE 2,24:PRINT STRING$( 78,CH 

A$( 227) ) | 

570 FOR f=2 TO 23:L0OCATE 2,f:PRINT 
CHR$C 227) :NEXT 

580 FOR f=2 TO 23:L0OCATE 79,f:PRINT 
CHR$C 227) :NEXT 

590 LOCATE 3,6:PRINT STRING$( 76, 154 
) 

600 IF j4>=0 THEN GOSUB 1190 
erechnung der Feiertage *#*# 

610 RESTORE 1170 

620 FOR k=1 TO m:READ m$(k) :NEXT 

630 k=m:m$=m$(k) 

640 WINDOW#1,4,77,3,5 

650 b$="### "+m$+" "+STA$Lj+1801) +" 
u" 

660 o=( 74-(LENCb$))) /2:03=( 39-( LEN( 
b$)))/2 

670 CLS#1:LOCATE#1,0,2:PRINT#1,b$:I 
F d$<>"j"THEN 720 

680 PRINT#8,CHR$C27)+"E";:IF m<=6 T 
HEN PRINT#8,TAB( 03)b$ ELSE PRINT#B, 
TAB( 03+40) b$ "AHHHHHHHHH CHRSC27)+"E 
"=Doppeldruck kann entfallen 

690 PRINT#8,CHR$L27) +" FT; AHRRHHHRH 
#4 Doppeldruck aus 


"at B 


2+3) STRING$(61,"-") AHHHHHHHHH Komp 
rimierten Druck einschalten und unt 
erstreichen 

720 RESTORE 1160:q-d:q1-2+gq2 

730 FOR i=1 TO 7:READ w$(i) 

740 LOCATE q,7:PRINT w$(i) 

750 IF d$=" j"THEN PRINT#8, TAB(q1)w$ 
(i); AHHAHAHHHH Ausdruck Wochentage 
760 q=g+10:q1=q1+9 

770 NEXT 

780 LOCATE 3,8:PRINT STRAING$( 76, 154 
) 

790 IF d$="j"THEN PRINT#8,TAB(q2+2) 
STRING$( 61," -") HAHHHHHHHH unterstr 
eichen 

800 mm=5:y=10:q=30+( w*#10) :q1=22+q2+ 
(w#9) :IF q>70 THEN q=q-70 

810 IF q1>q2+63 THEN qi=q1-63 

820 FOR i=1 TO z 

830 IF j4>=0 THEN GOSUB 1500 

840 IF os$<>""THEN LOCATE q-1,y:PRI 
NT CHR$( 24) ;" "5; :PRINT USING"##";i; 
:PRINT " ";CHA$(24) ELSE LOCATE q,y 
:PRINT USING"#AA";i 

850 IF d$<>"j"THEN 900 

870 IF os$<>""THEN PRINT#8,TAB(q1)U 
SING"##";i;:PRINT#8," *#";,:GOTO 900 
AHHHHHHH 

880 PRINT#8,TAB(q1)USING" HH" ;i; "HAH 
HAHHHHH 

900 IF os$=""THEN 950 
910 text$=text$+" 
text$)>=61 THEN 930 
920 feiert$=feiert$+STRA$li)+"”. 
$+" ":0os$="":GOTD 950 

930 feiert1$=feiert1$+STRA$li)+"”. "+ 
os$+" ":os$="" 

940 IF i=z THEN 970 

950 q=q+10:q1=q1+9:IF q>70 AND NOT 
i=z THEN q=10:y=y+t2:q1=q2+4 :mm=mm+ 1 
960 NEXT 

970 IF d$<>"j"THEN 990 

980 IF mm<11 THEN PRINT#ÄB:mm=mm+1:G6G 
OTO 980 AHHHHHHHHH VT setzen 

990 IF feiert$=""THEN 1050 

1000 o=( 80-(LEN( feiert$))) /2:LOCATE 
0,22:PRINT CHR$( 24) ;feiert$; CHR$(2 
4) 

1010 0o1=(62-(LEN( feiert$)))/2:IF d$ 
="4"THEN PRINT#8,TAB(o1+q2) feiert$: 

mmamm+ 1  AHHRHHHHHR 

1020 IF feiert1$=""THEN 1050 

1030 o=( 80-(LEN( feiert1$))) /2:LOCAT 
E 0,23:PRINT CHRA$( 24) ;feiert1$; CHR$ 
(24) 

1040 0o1=(62-(LEN( feiert1$)))/2:IF d 
$="j"THEN PRINTAB, TAB( o1+q2) feiert 
$:mmemm+1  AHHHRHHHHH 

1050 IF d$="j"AND mm<14 THEN PRINT# 


"+0s$:IF LEN( 


"+0s 


B:mm=mm+1:G0TO 1050’ HHHAHHHHHH NT s BD 
111 


700 PRINT#8,CHR$( 15) ; :PRINT#8,TAB(q 


LISTING 


etzen 
1060 feiert$="":feiert1$="":text$=" 


1070 IF j$<>"3j"THEN 1110 

1080 IF m>=6 AND j$="j"THEN q2=68:q 
1=2 

1090 IF m=6 AND j$="j"THEN LOCATE 3 


0,25:PRINT"eine Taste druecken":CAL 
L &BBO6 

1100 CLS:m=m+1:j=j+1:s=0:t=0:z=0:IF 
m<13 THEN 470 

1110 LOCATE 30,25:PRINT"eine Taste 
druecken":CALL &BB06:G0T0 210 

1120 PRINT#1,CHR$L7) :LOCATE#1,3,16: 
PRINT#1,"Eingabe falsch! Neue Einga 
be!” :RETURN 

1130 LOCATE#1,7,18:PRINT#1,"Jahr ha 
t nur 12 Monate!"”:GOTO 1150 

1140 LOCATE#1,4,18:PRINT#1,"Nur 180 
0 bis 2099 zulaessig" :RETURN 

1150 FOR x=1 TO 2000:NEXT:RETURN 
1160 DATA MONTAG,DIENSTAG,MITTWOCH, 
DONNERST, FREITAG, SAMSTAG, SONNTAG 
1170 DATA JANUAR, FEBRUAR, MAERZ, APRI 
L,MAI, JUNI, JULI,AUGUST, SEPTEMBER, OK 
TOBER , NOVEMBER , DEZEMBER 

1180 ’###### Berechnung der von Ost 
ern bestimmten Feiertage F####* 
1190 RESTORE 1780 

1200 FOR b=0 TO 298:READ t2 

1210 IF b=j4 THEN 1230 

1220 NEXT 

1230 os=t2:hi=os-22:pf=os-12:fro=os 
-1:osm=3:him=S5:pfm=S5:from=5 

1240 IF os>31 THEN os=os-31:osm=4 
1250 osi=os+1:osim=osm:IF osi>31 TH 

EN osi=1:osim=4 

1260 IF hi>31 THEN hi=hi-31:him>=6 
1270 IF pf>31 THEN pf=pf-31:pfm=6 
1280 IF fro>31 THEN fro=fro-31:from 
=6 

1290 pfi=pf+1:pfim=pfm:IF pfi>31 TH 
EN pfi=1:pfim=6 

1300 gru=os-3:grum=osm:IF gru<=0 TH 
EN grum=osm-1:gru=( 31+0s) -3 

1310 kar=os-2:karm=osm:IF kar<=D TH 
EN karm=osm-1:kar=( 31+tos) -2 

1320 fa=os:fam=osm:FOR b=1 TO 47’*#* 
#### Anzahl der Tage von Fasch.-Ost 

ern Ft 

1330 fa=fa-1:IF fa<1 AND fam=4 THEN 
fa=31:fam=3:G0TO 1350 

1340 IF fa<1 AND fam=3 THEN fa=a(l2) 
:fam=2 

1350 NEXT 

1360 as=fa+t1l:asm=fam:IF as>al 2) THEN 
as=1:asm=famt1 

1370 mut=( 12-w) +7:mum=5:IF mut>14 T 
HEN mut=mut-7 

1380 IF m<11 THEN RETURN 


1390 IF m=12 THEN 1460 

1400 a=6:bu=16:FOR b=1 TO 7 

1410 IF a=w THEN 1440 

1420 a=-a-1:bu=bu+]l 

1430 NEXT 

1440 tos=bu+4:tom=11:bum=11:IF tost 
7<=30 THEN ad=tos+7?:adm=bum 

1450 GOTO 1480 

1460 adi=(5-w)+21:IF adi>24 THEN ad 
i=adi-? 

1470 adma=12:ade=adi-7:ada=ade-7:IF 
ada>? THEN ad=ada-? 

1480 RETURN 

1490 "ee Feiertage * 
PER ee 2 2 2.0 .2.2.2 0.202.202 

1500 IF i=1 AND m=1 THEN os$="Neuja 
hr" :RETURN 

1510 IF i=6 AND m=1 THEN os$="Heili 
ge drei Koenige" :RETURN 

1520 IF i=fa AND m=fam THEN os$="Fa 
stnacht" :RETURN 

1525 IF i=14 AND m=2 THEN os$="Vale 
ntinstag"” :AETURN 

1530 IF i=as AND m=asm THEN os$="As 
chermittwoch" :RETURN 

1540 IF i=gru AND m=grum THEN os$=" 
Gruendonnerstag" :RETURN 

1550 IF i=kar AND m=karm THEN os$=" 

Karfreitag” :RETURN 

1560 IF i=os AND m=osm THEN os$="0s 
tersonntag" :RETURN 

1570 IF i=osi AND m=osim THEN os$=" 
Ostermontag"” :RETURN 

1580 IF i=mut AND m=mum THEN 0s$="M 
uttertag"”:RETURN | 

1590 IF i=1 AND m=5 THEN os$="Maife 
iertag” :RETURN 

1600 IF i=hi AND m=him THEN 0os$="Ch 
risti Himmelfahrt" :RETURN 

1610 IF i=pf AND m=pfm THEN os$="Pf 
ingstsonntag" :RETURN 

1620 IF i=pfi AND m=pfim THEN os$=" 

Pfingstmontag” :RETURN 

1630 IF i=fro AND m=from THEN os$=" 

Fronleichnam" :RETURN 

1640 IF i=17 AND m=6 AND j>160 THEN 
os$="Gesetzlicher Feiertag” :RETURN 
1650 IF i=1 AND m=11 THEN os$="Alle 

rheiligen" :RETURN 

1660 IF i=2 AND m=11 THEN os$="Alle 

rseelen"” :RETURN 

1670 IF i=bu AND m=11 THEN 0os$="Bus 
und Bettag” :RETURN 

1680 IF i=tos AND m=tom THEN os$="T 

otensontag"” :RETURN 

1690 IF i=ad AND m=adm THEN os$="1. 

Advent” :RETURN 

1700 IF i=ada AND m=adma THEN os$=" 
2.Advent"” :RETURN 

1710 IF i=ade AND m=adma THEN os$=" 
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3.Advent"” :RETURN 

41720 IF i=adi AND m=adma THEN os$=" 
4.Advent"” :RETURN 

1730 IF i=24 AND m=12 THEN os$="Hei 
liger Abend” :RETURN 

1740 IF i=25 AND m=12 THEN os$="1.W 
eihnachtstag"” :RETURN 

1750 IF i=26 AND m=12 THEN 0s$="2.W 
eihnachtstag” :RETURN 

1760 IF i=31 AND m=12 THEN os$="Sil 
vester":RETURN 

1770 RETURN 

1780 DATA 46,38,30,43,34,54,46,31,5 
0,42,27,47,38,23,43,35,54,39,31,51, 
35,27 

1790 DATA 47,32,51,43,35,48,39,31,5 
1,36,27,47,32,52,43,28,48,40,24,44, 
36,56 

1800 DATA 40,32,52,37,28,48,40,25,4 
4,36,49,41,32,52,37,29,48,33,53,45, 
29,49 

1810 DATA 41,26,45,37,29,42,33,53,4 
5,30,49,41,26,46,37,50,42,34,53,3B, 
30,50 

1820 DATA 34,26,46,31,50,42,34,47,3 
8,30,43,35,54,46,31,51,42,27,47,39, 
23,44 

1830 DATA 35,55,39,31,51,36,27,47,3 
2,52,43,35,48,40,31,51,36,28,47,32, 
52,44 

1840 DATA 28,48,40,25,44,36,56,41,3 
2,52,37,29,48,40,25,45,36,49,41,33, 
52,37 

1850 DATA 29,49,33,53,45,30,49,41,2 
6,46,37,29,42,34,53,45,30,50,41,26, 
46,38 

1860 DATA 50,42,34,54,38,30,50,35,2 
6,46,31,51,42,34,47,39,30,43,35,55, 
46,31 

1870 DATA 51,43 


SCHATZINSEL 


Wer hat nicht schon einmal als kleines Kind davon ge- 
träumt, einen Schatz zu finden? Vom schnellen Reich- 
tum durch geheimnisvolle Schatzkarten leben unzäh- 
lige Bücher und Filme. Jetzt können Sie endlich ein- 
mal Ihre Jugendträume wahr machen und sich 
Schmuck und Gold von unermeßlichem Wert sichern. 
Allerdings nur im CPC, denn hierfür hat Markus 
Schöngarth das Listing ‚‚Schatzinsel‘‘ programmiert, 
das Sie ein bißchen dazu verführen soll, weiterzu- 
träumen. 


Das Spiel: Auf der Suche nach dem verlorenen Schatz 
In einer kalten Januarnacht stürmt ein verwundeter 
Mann in Dein Haus. Er erzählt Dir eine wundersame 
Geschichte: 

Sein Schiff sei von Piraten überfallen worden, denn er 
sollte einen riesigen Schatz zum Sultan von Dahli brin- 
gen. Er kann sich leider nicht mehr an die Stelle er- 
innern, wo die Piraten den gestohlenen Schatz ver- 
steckt haben. Er erinnert sich nur noch schwach an 
die Gegend und zeichnet Dir eine unvollständige Karte 
auf. Gleichzeitig teilt er Dir noch mit, daß es noch ei- 
ne zweite Karte gibt. Diese zweite Karte ist aber auf 
vier verschiedenen Inseln verteilt, die es jetzt gilt, zu 
finden. 

Startet man das Spiel, so gelangt man in das Menü, 
wo man die Möglichkeit zwischen dem Kauf eines 
Schiffes, dem Anheuern einer Mannschaft, dem Kauf 
von Proviant, dem Kauf von Waffen, dem Abfahren 
und dem Ansehen der Seekarte hat. 

Es soll hier nicht zu viel verraten werden, was alles 
bei diesem Abenteuer zu beachten ist, wenn man es 
als Kapitän heil überstehen will. Nur so viel sei gesagt: 
Neben dem Bestehen von Kämpfen mit Piraten und 
Eingeborenen muß man auch damit rechnen, daß die 
Mannschaft meutert, wenn sie hungern oder dursten 
muß und daßman sich dann plötzlich im Meer trei- 
bend wiederfindet. 

Bei einiger Übung und geschicktem taktischen Vor- 
gehen sollte es auch Ihnen gelingen, den Goldschatz 
aufzuspüren und damit sicher wieder nach Hause zu 
gelangen. (IE) 
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1 RISSE IESESE SEE EEE EHEN EEE 
2 4 SCHATZINSEL # 
383 VON * 
a ’* MARKUS SCHOENGARTH # 
5 ’# FUER * 
6 ’* SCHNEIDER AKTIV # 
y 1% CPC 464/664/6128 # 
8 PREHUEEUEHUHUHEUUCHCHUUNENEEEERE 


10:5YMBOL AFTER 32:MEMORY ESFFF 

20 CLEAR:SYMBOL 240,1,6,15,31,63,52 
‚64,128 

30: FOR i=43000 TO 43011:READ wert:P 

OKE i,wert:NEXT 

40. FOR i=43020 TO 43031:READ wert:P 

OKE i,wert:NEXT 

50:DATA &01,6ff,637,611,6&00,660,621 
‚600,6c0,&ed,&b0,&c9 

60 DATA &01,&6f7,63F,8611,8600,600,821 
‚600,860, &ed,&b0,&c9 

70 MODE 1:DIM g( 12,39) :GOSUB 3870 

80 SYMBOL 200,24,255,60,255,60,255, 

60,24 

90 SYMBOL 201,24, 126,189,126, 189,12 

6,189,24 
100 SYMBOL 
‚210,162 
110 SYMBOL 
„14 
120 

54 
130 
112 
140 
1,1 
150 

4,28 
160 SYMBOL 

0 

170 SYMBOL 
‚255 

180 SYMBOL 

255 

190 SYMBOL 253,0,0,0,0,0,31,63,255 

200 tage=1:mon=2: jah=1560:go=25000: 

ab=1:aa=7:bb=D0:ss=2:x=5:y=18 

210 ELS:INK 0,15:BORDER 0O:INK 1,26: 

INK 2,7:INK 3,0 

220 LOCATE 9,1:PEN 2:PRINT"Im Heima 

thafen"” 

230 PRINT STRING$( 40, 154) 

240 LOCATE 1,6:PEN 1:PRINT "[ 1] 5 

chiff kaufen" 

250 LOCATE 1,8:PRINT "[ 2 ] Mannsch 

aft anheuern” 

260 LOCATE 1,10:PRINT "[ 3 ] Provia 

nt kaufen” 

270 LDCATE 
kaufen” 

280 LOCATE 
stechen" 


203,37,195,101,186,58,77 
202,60,24,24,24,24,24,28 
SYMBOL 210,0,0,0,36,36,36,255,2 
SYMBOL 211,0,0,0,4,136,208,224, 
SYMBOL 220,1,1,123,255,255, 123, 
SYMBOL 238,0,74,173,90,173,90,4 
239,0,0,0, 126,60, 60,60,6 
254,130,68,60,30,34,65,1 


255,0,0,0,0,224,240,254, 


1,12:PRINT "[ A ] Waffen 


1,14:PRINT "[ 5 ] In See 


290 LOCATE 1,16:PRINT "[ 6 ] Seekar 
te ansehen" 

300 LOCATE 1,20:PRINT "Gold:";go:LO 
GATE 19,20:PAINT "Mannschaft:";ma:Ll 
DCATE 19,24:PRINT "Kanonen:";ka:LOC 
ATE 1,22:PAINT "Brot:"”;br:L 

DCATE 14,22:PRINT "Rum:"”;ru:LOCATE 

27,22:PRINT "Fleisch"”;f1:LOCATE 1,2 
4:PRINT "Wasser:";wa 

310 a$=INKEY$:IF a$="" THEN 310 

320 ON VAL(a$)G6GOSUB 340,570,780,950 
‚1200,4160 

330 GOTO 210 

340 CLS:BORDER 13:INK 0,13:INK 1,26 
:INK 2,2:INK 3,3 

350 IF kk=1 THEN PRINT "Sie haben s 
chon ein Schiff”:FOR i=1 TO 2000:NE 
XAT:GOTO 210 


360 LOCATE 1,1:PEN 1:PRINT "Im Hafe 
n" 

370 LOCATE 1,2:PEN 3:PRINT STRING$( 
40,154) 

380 LOCATE 1,6:PRINT "Name 

nge Besatung Kanonen Preis" 

390 PEN 3:PARINT S5TRING$( 40,154); 


Lae 


400 LOCATE 1,9:PEN 1:PAINT "[ 1]Have 

ra 50 400 50 1000” 

A410 PEN 3:PRINT STRAING$( 40, 154); 

420 PEN 1:PRINT "[2]Trive 70 
600 150 2000” 

430 PEN 3:PRINT STRING$( 40, 154); 

440 PEN 1:PRINT "[3]Alba 20 
200 50 600" 

ASO PEN 3:PRINT STRING$( AO, 154); 

460 PEN 1:PRINT "[4]Idex 40 
280 90 900” 

470 PEN 3:PRINT STRING$( AO, 154); 


480 LOCATE 1,20:PEN 2:PRINT "Ihre W 
ahl ?"” 


"A490 PLOT 154,326,3:DRAW 154, 127:PLO 


T 265,326:DRAW 265, 127:PLOT 408,326 
:DRAW 408, 127:PLOT 535,326:DRAW 535 
‚127 

500 a$=INKEY$ 

510 IF a$="1" THEN la=50:be=-400:ka= 
50:pr=1000:G0TO 560 

520 IF a$="2" THEN 1la=70:be=-600:ka= 
150:pr=2000:G0T0 560 

530 IF a$="3" THEN 1la=20:be=200:ka= 
50:pr=-600:G0T0 560 

540 IF a$="4" THEN 1la=40:be=280:ka= 
90:pr=-900:G0T0 560 

S5D GOTO 500 

560 kk=1:go=go-pr:GOSUB 1170:RETURN 
570 CLS 

580 IF kk=D THEN LOCATE 5,13:PRINT 

"Sie haben noch kein Schiff !!!":CA 
LL &BBO6:6G0T0O 210 

590 BORDER 26:INK 0,13:INK 2,6 

600 LOCATE 1,1:PRINT "In einer Hafe 
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nkneipe” 

610 LOCATE 1,2:PRINT STRING$( 40, 154 
) 

620 LOCATE 1,4:PRINT "Hier Kannst D 
u 3 veschieden gute Mannscha 
ften anheuern."” 


630 LOCATE 1,7:PEN 2:PRINT "Klasse 
Kampfkraft Sold (2 mal im Monat)” 


640 PEN 1:PRINT STAING$( 40, 154); 

650 PRINT "” 1. 3 1” 

660 LOCATE 1,11:PRINT ” 2. 2 
0.5” 

670 LOCATE 1,13:PRINT "” 3. 1 
0.25” 

680 LOCATE 1,15:PRINT STRING$( 40, 15 

4) 

690 LOCATE 1,17:PRINT "Sie brauchen 

":be;” Maenner” 


700 LOCATE 1,24:PEN 2:PRINT "* Sold 
und Kampfkraft pro Person" 

710 LOCATE 1,20:PRINT "Welche Klass 

e”:INPUT kl 


720 IF kl=1 THEN kw=3:so=1:6G0T0 770 
730 IF kl=2 THEN kw=2:s0o=0.5:G0T0 7 
70 

740 IF kl1=3 THEN kw=1:so=0.25:G0T0 

770 

750 PRINT CHRA$(7) 

760 GOTO 710 

770 ma=be :kwm=kwm+be*kw:RETURN 

780 CLS 

790 INK 0,6 

800 LOCATE 1,1:PRINT "Im Laden” 

810 PRINT STRING$( AO, 154); 

3820 LOCATE 1,4:PRINT "Jeder Seemann 


braucht pro Tag: 0.251 RAR 
um il Wasser 1 Stuck Brot 15 
tueck Trockenfleisch” 
830 LOCATE 1,7:PAINT STRING$( 40, 154 
) 
840 
4); 
850 


e" 


860 


LOCATE 1,20:PRINT STRING$( 40, 15 


PRINT "Ware Goldstueck 
PRINT "11 Rum 1 
Il Wasser :DO 

.15 1 Brot 

:0.15 1 
Stueck Fleisch :1” 
870 GOSUB 930 
880 LOCATE 1,9:PRINT "Wieviel 1 Rum 
":INPUT rum: go=go-rum*1:ru=ru+trum:G 
DSUB 930 
890 LOCATE 1,11:PRINT "Wieviel 1 Wa 
sser":INPUT was:go=go-was#0.15:wa=w 
atwas:G05UB 930 
900 LOCATE 1,13:PRINT "Wieviel Stue 
ck Brot:":INPUT bro:go=go-bro*#0.15: 
br=br+bro:G0UO5SUB 930 
910 LOCATE 1,15:PRINT "Wieviel Stue 


ck Trockenfleisch:"”":INPUT fle:go=go 
-fle:fl=fl+fle:GDO5UB 930 


920 RETURN 


930 LOCATE 1,19:PRINT "Goldstuecke"” 
;g0:G0OSUB 1170 

940 RETURN 

950 CLS 

960 INK 0,0:INK 2,6:BORDER O 

970 LOCATE 1,1:PRINT "Im Waffenlade 
n"” 

980 PEN 2:PRINT STRING$( AO, 154); 
990 LOCATE 1,5:PEN 1:PRINT " 

fe Preis 
1000 
1010 
Ich 
1020 


Waf 

Kampfwert"” 

PEN 2:PRINT STRING$( 40, 154); 

LOCATE 1,8:PEN 1:PRINT "(1) Do 

0.5 +0.5"” 

LOCATE 1,10:PRINT "(2) Saebel 
2 +1” 

LOCATE 1,12:PRINT "(3) Pistole 
5 +2” 

1040 PEN 2:PRINT STRAING$( AO, 154); 

1050 LOCATE 1,17:PEN 2:PRINT "Gold 

"-80:G05UB 1170 


1030 


1060 PRINT "(Nummer,Stueck 0,0 = E 
nde) ” 

1070 PEN 1:INPUT ar,an 

1080 LOCATE 1,17:PEN 2:PRINT "Gold 
”;go 

1090 IF ar=-O AND an=D THEN RETURN 
1100 ON ar GOTDO 1110,1130, 1150 


1110 k=-0.5:pre=an#0.5:go=go-pre:kwm 

=kwm+k*#an 

1120 GOTO 1050 

1130 k=1:pre=an#2:go=go-pre:kwm=kwm 

+k*#an 

1140 GOTO 1050 

1150 k=-2:pre=an#5:go=go-pre:kwm=kwm 

+k*#an 

1160 GOTO 1050 

1170 IF go<O THEN 1180 ELSE RETURN 

1180 CLS:LOCATE 8,12:PRINT "Da Sie 

kein Gold mehr haben,koennen Sie,de 

n Seeleuten, unterwegs keinen S5old 
mehr zahlen. "” 

1190 CALL &BB18:CL5:G0TO 4360 

1200 EI:CLS:BORDER 0:INK 0,1:INK 1, 

2:INK 2,1:INK 3,6 

i210 ii=O 

1220 IF kk=0 THEN LOCATE 10, 12:PRIN 

T "Wollen Sie Schwimmen ???":CALL & 

BB18:G0T0 210 

1230 IF ma=0 THEN LOCATE 10, 12:PRIN 

T "Sie haben noch keine Mannschaft 

!t!":CALL EBB18:6G0T0 210 

1240 ha=0:ri$="5" 

1250 CLS:BORDER 0:INK 0,1:INK 1,2:1 

NK 2,1:INK 3,6 

1260 WINDOW #1,20,40,1,10:PAPER #1, 

3:CL5S#1:WINDOW #2,1,19,14,25:PAPER 

#2,3:CL5#2:WINDOW #3,20,40,11,25:PA 
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PER #3, 1:CL5#3 

1270 PEN 1:FOR i=7 TO 13:LOCATE 1,i 
:PRINT STRING$( 19,143) ; :NEXT i 

1280 PLOT 302,1,3:DRAW 302,400 

1290 GOSUB 1660 

1300 IF is=1 THEN GOTO 1480 


1310 EVERY 1,1 GDSUB 2570 
1320 IF ri$="N"” THEN x=x-1 ELSE IF 


ri$="5" THEN x=x+1 ELSE IF ri$="0" 
THEN y=y+1 ELSE IF ri$="W" THEN y=y 
-1 ELSE IF ri$="NO” THEN x= 
x-1:y=y+1 ELSE IF ri$="NW" THEN x=x 
-1:y=y-1 ELSE IF ri$="SW"” THEN x=x+ 
1:y=y-1 ELSE IF ri$="50" THEN x=x+1 
sy=yti 

1330 IF x<1 OR x>24 OR y<1 OR y>22 
THEN 2520 

1340 IF g(x,y)=8 THEN DI:GOTO 210 
1350 IF g(x,y)=7 THEN 1910 

1360 IF g(x,y)=1 THEN ein=1:G60T0 28 
50 ELSE IF g(x,y)=2 THEN ein=2:60T0 
2850 

1370 PAPER #3,1:PEN #3,3 

1380 wist=INT(RND#2) +1:PRINT #3," 

Logbuch" :PRINT #3, "-------------- 

Sons ":PRINT #3, "Datum:";tage;”:" 
‚mon; ":"; jah 

1390 IF wist=2 THEN gew=INT( AND*#2) + 
1 

1400 PRINT #3,"Wetter :";:IF wist=1 
THEN PRINT #3,"”"ruhige See!":GOTO 1 
450 ELSE IF wist=2 THEN PRINT #3,"s 
tuermische See” :gew=INT( RAND 
*2)+1:IF gew=2 THEN PRINT #3,"mit G 
ewitter"”:GOSUB 2910 

1410 

1420 

1430 r=AND#60+270:FOR i=300 TO r:PL 
OT 1,i1,1:DRAW 300, i:NEXT 

1440 FOR i=r TO 300 STEP -1:PLOT 1, 
i,2:DRAW 300,i:NEXT 

1450 t=t+1:IF t=45 THEN 1480 

1460 p=INT(AND#450) :IF p=1 THEN 197 

D 

1470 GOTO 1430 

1480 CLS #1:PRINT #1,"Ein Tag ist v 
orbei” 

1490 t=0:INK 2,0:INK 0,0 

1500 tage=tage+1:IF tage=30 THEN ta 

ge=1:mon=mon+1 ELSE IF tage=14 OR t 
age=2B THEN PRINT #1,"DIE HEUER IST 
MAL WIEDER FAELLIG!"”:go 

=go-ma*so:IF go<O THEN 2420 ELSE PR 
INT #1,"GOLD";go 

1510 EVERY 0,1 GOSUB 2570 

1520 IF tpl=4 THEN 2770 

1530 ru=ru-ma#0.25:wa=wa-ma:br=br-m 

a:fl=fl-ma:605SUB 1660 

1540 IF ru<-100 OR wa<-100 OR br<-1 

00 OR fi1<-100 THEN 2420 


1550 CALL &B8B18:G05SUB 4160 

1560 IF is=1 THEN is=-0:G0T0 1580 
1570 GOTO 1610 

1580 IF ri$="N" THEN ri$="5" ELSE I 
F ri$="5" THEN ri$="N"” ELSE IF ri$>= 
"W" THEN ri$="0" ELSE IF ri$="0" TH 
EN ri$="W"” 

1590 IF ri$="NW” THEN ri$="50" ELSE 
IF ri$="50”" THEN ri$="NW” ELSE IF 
ri$="5W" THEN ri$="NO" ELSE IF ri$= 

"NO” THEN ri$="5W"” 

1600 CALL &BB18:G0T0 1250 

1610 ° NEUER KURS 

1620 LOCATE 1,23:PARINT "In Welche AR 
ichtung soll es gehen ?"” 

1630 PRINT "Ihr derzeitiger Kurs is 
t ";ri$: INPUT ri$ 

1640 IF ri$="N" OR ri$="5" OR ri$-" 
W” OR ri$="0" OR ri$="NW" OR ri$=-"S 
W" OR ri$="NO” OR ri$="S50” THEN 165 
0 ELSE 1620 

1650 GOTO 1250 


1660 CLS #2:PRINT #2,"Brot ";br:PRI 
NT #2 

1670 PRINT #2,"Fleisch";f1:PRINT #2 
1680 PRINT #2,"Wasser";wa:PRINT #2 
1690 PRINT #2,"Rum"”;ru 

1700 RETURN 

1710 aa=7:EVERY 0,1 GOSUB 2670:CLS: 


BORDER 0:INK 0,1:INK 3,11:INK 2,0:I 
NK 1,3 

1720 PEN 3:FOR i=1 TO 10:FOR a=1 TN 
A40:LOCATE a,i:PRINT CHA$( 143) ; :NEX 
Ta,i 

1730 FOR i=1 TO 90:PLOT RND*600,RND 
*300,3:NEXT 

174D LOCATE 9,10:PEN 3:PRINT CHR$(2 
15) 

1750 PEN 1:FOR i=10 TO 24:L0OCATE i, 
10:PAINT CHA$( 143) :NEXT i 

1760 LOCATE 10,11:PEN 1:PRINT CHR$( 

213) 

1770 FOR i=-11 TO 24:LOCATE 

NT CHR$( 143) :NEXT i 

1780 PLOT 200,255,2:DRAW 200,380 
1790 PLOT 290,255,2:DRAW 290,380 
1800 FOR i=180 TO 350 STEP 10:PLOT 
1,245,3:NEXT 

1810 FOR i=180 TO 350 STEP 10:PLOT 
i,235:NEXT 

1820 PLOT 126,256,2:DRAW 80, 302:DRA 

W 199,381:DRAW 289, 365 

1830 PLOT 293,383:DRAW 376,256 

1840 PLOT 199,381:DRAW 289,277 

1850 PAPER O:PEN 1:FOR i=24 TO 135 

TEP -1:FOR r=1 TO 3:LOCATE 20,i:PRI 

NT CHRA$( 200) :FOR a=1 TO 200:NEXT a: 

LOCATE 20,i1:PRINT CHRA$( 201) 

:FOR a=1 TO 300:NEXT a:NEXT r:LOCAT 


i,11:PAI 
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E 20,i:PRINT CHRA$( 32) :NEXT i 


1860 is=1:G60T0 1250 

1870 ON SQ(1) GOSUB 1890 

1880 RETURN 

1890 FOR i=1 TO 7:50UND 1,0,25,5,0, 
0,i:NEXT 

1900 RETURN 

1910 ” RIFFE 

1920 FOR i=1 TO 8 


1930 OUT &BC00,8:0UT &BDOO, 1:50UND 

2,0,5,15,0,0,18:0UT EBC00,8:0UT &BD 
00,2:50UND 2,0,5,15,0,0,18 

1940 NEXT 

1950 PRINT #1,"Wir sind auf ein Rif 
f aufgelaufen.”:1p=1:GOTO 4280 

1960 GOTO 1960 

1970 PRINT #1,"A L A R M":PRINT #1, 
"Piraten in Sicht” 

1980 FOR I=1 TO 19:PEN 1:LOCATE I,? 
:PRINT CHR$( 143) ; :NEXT 

1990 LOCATE 7,6:PEN 3:PRINT CHR$( 21 
0) 

2000 EVERY 0,1 GOSUB 2570 

2010 FOR I=1 TO 10:50UND 3,110,7:50 
UND 3,200,7:NEXT 

2020 kwp=INT{ RND*#90) +60:kp=INT( kwp* 
10) 

2030 PRINT #1,"Was sollen wir tun ? 


2040 PRINT #1,"(1) Kaempfen","”(2) W 
arten” 


2050 a$=INKEY$ 

2060 IF a$="1" THEN 2080 ELSE IF a$ 
="2" THEN 2310 

2070 GOTO 2050 

2080 CLS #1:PRINT #1,"0k Kapitaen" 


2090 EVERY O,1 GOSUB 2590 

2100 PRINT #1,"Die Kanonen sind 
feuerbereit Kapitaen 

2110 PRINT #1,"TASTE" 

2120 CALL &BB18B 

2130 PRINT #1,"Feuer!!!!i” 

2140 ” 

2150 PEN 3:FOR s=1 TO 19 STEP 2:PAP 

ER 1:LOCATE s,13:PRINT CHRA$( 239) :NE 

AT 

2160 FOR i=1 TO 400:NEXT:INK 0,25:1 

NK 2,25 

2170 FOR s=1 TO 19 STEP 2:PEN 2:LOC 

ATE s, 12:PRINT CHA$L238) :PEN 1:NEXT 
:FOR s=1 TO 19 STEP 2:PEN 2:LOCATE 
3, 12:PRINT CHRA$( 32) :NEXT 

2180 INK 2,6:INK 0,6:FOR i=15 TO 12 
STEP -1:50UND 1,100#i1,15,15,,,15:N 
EXT i 

2190 INK 2,11:INK 0,11 

2200 tre=INT(RND*#20) :IF tre<10 THEN 
PRINT #1,"TREFFER!!!":GOTO 2270 EL 
SE PRINT #1, "DANEBEN!!!" 

2210 INK 3,24:FOR i=1 TO 15 :SOUND 


1,325,12,i1,,,i:NEXT i 

2220 FOR i=15 TO 12 ETEP -1:50UND 1 
‚100#*1,15,15,,,15:NEXT i:INK 3,6:IN 

K0,24:INK 2,24:INK 0,1:INK 2,1 

2230 FOR I=1 TO 19:sp=INT( AND*#18) +1 
:LOCATE sp, 10:PEN 2:PAPER 1:PRINT C 

HR$( 238) : NEXT 

2240 FOR sp=1 TO 19:LOCATE sp, 10:PR 
INT CHR$( 32) :NEXT 

2250 IF INT(RND*#10)<5S THEN FOR I=1 

TO 20:0UT &BCO00,8:0UT &BDOO, 1:50UND 
2,0,5,15,0,0,18:0UT &BC00,8:0UT &6B 

D00,2:NEXT:PRINT #1,"Wir si 

nd getroffen!"”:GOTO 2290 

2260 GOTO 2140 

2270 kwp=kwp-ka:IF kwp<=D0 THEN LOCA 

TE 7,6:PEN 3:PAPER O:PRINT #1,"Wir 

haben Gewonnen!!!”:FOR i=15 TO 1 65T 

EP -0.2:50UND 3,0,8,1,0,0,2 

O:NEXT i::PRINT CHA$(211):FOR a=1 T 

0 1500:NEXT:LOCATE 7,6:PEN 3:PAPER 

O:PRINT CHRA$( 32) :GOTO 1480 

2280 GOTO 2210 

2290 zer=INT( RND#3) +10:la=1la-zer:IF 
la<DO THEN PRINT #1,"Wir sinken II! 
":1p=1:GOTO 4280 

2300 GOTO 2140 

2310 ” ENTERN 

2320 ECLS #1:PRINT #1,"Wir werden Ge 

entert"” 

2330 PEN 1:FOR I=1 TO 19:L0OCATE I,6 
:PRINT CHA$( 158) :NEXT 

2340 PEN 3:FOR i=7 TOD 12:FOR a=1 TO 
19:LOCATE a,i:PRINT CHR$( 143) ; :NEX 
TA,I 

2350 FOR I=1 TO 19 STEP 2:LOCATE I, 
9:PRINT CHR$( 230) :NEXT 

2360 FOR I=1 TO 5:LDOCATE 10,I:PRINT 
CHR$C 143) ; CHR$L 143) : NEXT 

2370 FOR I=1 TO 19:LOCATE I,5:PRINT 
CHR$( 225) :NEXT 

2380 PRINT #1,"Ein wilder Kampf 
beginnt !!!" 

2390 GOSUB 2710 

2400 IF kwm>kp THEN PRINT#1,"Wir ge 

winnen den Kampf.":PRINT#1,"Bei den 
Piraten finden wir 2000 Goldmuenze 

n.":CALL &EBB18: GOTO 1480 

2410 IF kwm<=kp THEN PRINT#1,"Wir v 

erlieren den Kampf.":PRINT#1,"Die P 
iraten versenken unser Schiff und 
lassen dich an Bord zuru 

eck.”:GOTO 4280 

2420 ° MEUTEREI 

2430 CLS#1:PRINT #1,"AL AR M" 

2440 PRINT #1,"EINE MEUTEREI BRICHT 
AUS” 

2450 PEN 1:PRINT #1,"Als Du aus der 
Kajuete herauskommst ‚spuerst Du e 

inen grossen Schmerz."”:INK 2,0:INK 
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LISTING 


3,0:INK 0,0:CALL &BB18:INK 

1,0 

2460 CLS:PEN 1:FOR i=12 TO 25:LOCAT 
E 1,i:PRINT STRING$( 40, 143) ; :NEXT 
2470 BORDER 0O:INK 0,11:INK 1,1:INK 
2,11:INK 3,24 

24560 FOR i=1 TO 2000 

2490 r=RND*#60+210:FOR i=200 TO r:PL 
OT 1,i1,1:DRAW 680,1:NEXT 

2500 FOR i=r TO 200 STEP -1:PLOT 1, 
i,2:DRAW 680,1i:NEXT 

2510 NEXT:GOTO 4360 

2520 ” FEHLER 

2530 CLS:INK 0,0:INK 1,7:LOCATE 1,1 
7:PRINT "Sie haben das Seegebiet de 
r Karte verlassen." 

2540 LOCATE 15,12:PRINT "GAME OVER"” 
2550 CALL &BB18:G60T0O 4360 

2560 FOR I=1 TO 19 :LOCATE I,6:PRIN 
T CHA$( 158) :NEXT 


2570 ON SQC 1) GOSUB 2590 
2580 RETURN 

2590 

2600 IF bb=1 THEN 2640 


2610 

2620 
2640 

2630 RETURN 

2640 SDUND 1,0,5*aa,aa,0,0,aa 

2650 aa=aa-1:IF aa=1 THEN aa=7:bb=O0 
: RETURN 

2660 bb=1:AETURN 

2670 ON SQ(2) GOSUB 2690 

2680 RETURN 

2690 SOUND 1,3162,1,10,0,0,11 

2700 RETURN 

2710 FOR i=1 TO 100 

2720 50UND 1,(AND( 1) *3500) +284, 10,1 
) 
2730 
2740 
2750 
2760 
2770 


SOUND 1,0,5*ab,ab,0,0,ab 
ab=ab+1:IF ab=7 THEN ab=1:60T0 


SOUND 1,(RND( 1) #3400) +284,1,15 

SOUND 1,(RND( 1) #3300) +284,1,2 

NEXT 

RETURN 

CLS:BORDER 26:INK 0,13:INK 1,6 
:INK 2,15:INK 3,17 

2780 PEN 1:PRINT "Bravo, 

es geschaft!!!” 

2790 PRINT:PRINT "Nachdem Sie zur 5 

chatzinsel gesegelt sind, machen 
sich ihre Leute sofort an die Arb 

eit."” 

2800 PRINT "Schon nach wenigen Minu 
ten findet einer ihrer Leute eine g 

rosse Kiste voll Gold.” 

2810 FOR a=1 TO 100 STEP 4:FOR i=1 

TOD 680 STEP INT(AND*#3) +5:PLOT i,a,2 
:NEXT i,a 

2820 cc=18:FOR i=i TO 10000:L0CATE 

20,cc:PRAINT CHRA$( INT AND*A) +248) :FO 

RA i=1 TO 100:NEXT:LOCATE 20,cc:PRIN 


Sie haben 


T CHR$( 32) :cc=cc+1:IF cc=20 
THEN cc=18B 

2830 NEXT 

2840 GOTO 2840 

2850 ”° Land in Sicht 


2860 PRINT #1,"LAND IN SICHT !!1"” 


2870 PLOT 1,305,3:DRAW 300,305 

2880 PRINT #1,"L<anden oder Z<uruec 
k?” 

2890 a$=INKEY$ 

2900 IF a$="Z" THEN is=1:6G0T0 1250 

ELSE IF a$="L"” THEN 3040 ELSE 2890 

2910 ” Gewitter 

2920 INK 1,1 

2930 EVERY 0,1 GOSUB 2570 

2940 INK 0,3:FOR i=1 TO 30:NEXT: INK 


0,6:FOR i=1 TO 30:NEXT:INK 0,24:F0 
AR i=1 TO 30:NEXT:INK 0,0:FOR i=1 TO 
30:NEXT:INK 0,2 

2950 SOUND 2,4,45,15,0,2,15 

2960 FOR i=1 TO 160:NEXT 

2970 SOUND 4,3,100,15,1,3,16 

2980 SOUND 4,3,10,10,1,3,10 

2990 FOR i=1 TO 60:NEXT 

3000 tim-INTÜRND#*100)+1:FOR i-1 TO 
tim:SOUND 1,( AND( 1) #3500) +284, 1,15: 

SOUND 2,CRND( 1) #3400) +284,1,15:5DUN 
D 3, RND( 1) #3300) +284, 1,15: 

NEXT 

3010 ti=ti+1:IF ti=10 THEN 3020 ELS 
E 2940 

3020 INK 1,2:INK 0,1 

3030 EVERY 1,1 GOSUB 2570:ti=O:wist 
=0:G0T0 1450 

3040 ’° Insel landen 

3050 

3090 PAPER 1:PEN 3:FOR i=13 TO 7 ST 

EP -1:FOR r=1 TO 3:LOCATE 8,i:PRINT 
CHR$( 200) :FOR a=1 TO 200:NEXT a:LO 

CATE 8,i:PRINT CHR$( 201) :FO 

A a=1 TO 300:NEXT a:NEXT r:LOCATE B 
‚i:PARINT CHA$( 32) :NEXT i 

3100 CLS:INK 1,6:INK 2,18:INK 3,0:1 

NK 0, 11:BORDER 13 

3110 WINDOW #1,1,40,12,25:CL5#1 
3120 ze=350:st=-40:6G05UB 4210 

3130 ze=-300:st=40:605UB 4210 

3140 PLOT 1,250,3:DRAW 690,250 

3150 FOR i=1 TO 40:h=INT( AND*#2) :LOC 

ATE i+h,9-h:PEN 3:PRINT CHR$( 202) :L 

OCATE i+h,8B-h:PEN 2:PRINT CHR$( 203) 
:NEXT 

3160 PAPER O:PRINT #1,"WIR SIND GEL 

ANDET"” 

3180 EVERY 10,1 GOSUB 4230 

3190 IF ein=2 THEN PRINT #1,"Die In 
sel scheint bewohnt.” ELSE IF ein=1 
THEN PRINT #1,"Die Insel scheint u 

nbewohnt ."” 

3200 IF ein=2 THEN einf=INT( RND*#2) + 
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1 

3210 PRINT #1,"Was sollen wir tun ? 
":PRINT#1 

3220 IF ein=2 THEN PRINT #1,"[ 1] 
EINGEBORENE SUCHEN” ELSE PRINT #1," 
[ 1 ] INSEL DURCHSUCHEN" 


3230 PRINT #1,"f 2 ] ZURUECK" 
3240 a$=INnKEY$ 


3250 IF ein=2 AND a$="1" 
ELSE IF ein=1 AND a$="1" 

ELSE IF a$="2" THEN 1710 
3260 GOTO 3240 

3270 ” EINGEBORENE SUCHEN 
3280 CLS#1:PRINT #1,"L0S GEHTS 
3290 FOR i=1 TOD 2000:NEXT:CLS#O 
3300 ze=350:st=50:6G05UB 4210 
3310 ze=300:st=20:G6G05UB 4210 
3320 ze=250:st=30:G05UB 4210 
3330 ze=200:st=30:6G05UB 4210 
3340 CLS #1:PRINT #1,"Wir sind vor 
einem hohen Gebirge." 

3350 PRINT #1,"Hier ist ein Trommel 
n zu hoeren." 

3360 EVERY 20,1 GOSUB 2670 

3370 FOR II=1 TO 1000:NEXT II:PRINT 
#1,"Etwas weiter voraus liegt ein 
Dorf.":FOR I=1 TO 2000:NEXT 

3380 INK 0,9:CL5#1:INK 2,11 

3390 FOR po=1 TO 40 STEP 2:aa=INT{R 
ND#3) +1:PEN 1:LOCATE po, 10-aa: PRINT 
EHR$L 217) ;CHA$L219) :PEN 3:LOCATE p 
0, 10-1-aa: PRINT CHR$( 214) ;C 

HR$( 215) :NEXT 

3400 PRINT #1,"Wir sind im Dorf." 
3410 IF einf=2 THEN PRINT #1,"Die E 
ingeborenen scheinen friedlich zu s 
ein.” ELSE PRINT #1,"Die Eingeboren 

en scheinen kriegerisch zus 

ein." 

3420 PRINT#1:PRINT #1,"[ 

DELN 

NGREIFEN" 

3430 a$=INKEY$ 
3440 IF a$="1" 
3450 IF a$="2" 
3460 GOTO 3430 
3470 ° VERHANDELN 

3480 IF einf=2 THEN PRINT #1,"Der H 
aeuptling will mit Dir verhandeln." 
:50TO 3610 ELSE IF einf=1 THEN PRIN 
T #1,"Der Haeuptling sieht 

nicht so aus als, wolle er verhand 


THEN 3270 
THEN 3700 


1 ] VERHAN 
[21a 


THEN 3470 
THEN 3640 


eln." 

3490 PRINT #1,"Die Eingeborenen gre 
ifen an.” 

3500 FOR i=1 TOD 40 STEP 2:LOCATE i, 


11:PRINT CHR$( INTCERND*4) +248) ; : NEXT 
3510 kwein=INT( AND#300) +900: IF kwei 
n>kwm THEN 3520 ELSE IF kwein<kwm T 
HEN 3570 


3520 GOSUB 2710:PRINT #1,"Wir haben 
verloren.":PRINT #1,"Die Eingebore 

nen nehmen uns gefangen.":CALL &BB1 

8 

3530 CLS:INK 0,11:INK 1,0:INK 2,6: 
EN 1:FOR i=1 TO 40 STEP 6:FOR a=1 
DO 25:LOCATE i,a:PRINT CHR$( 143) ; :N 

XT:NEXT 

3540 LOCATE 15,12:PEN 2:PRINT "GAME 
OVER"” 

3550 CALL &BB1B 

3560 GOTO 4360 

3570 PRINT #1,"Als die Eingeborenen 
einen Schuss hoeren,fliehen sie al 
le in den Dschungel" 

3580 PRINT #1,"Nun kannst Du in ruh 

e das Dorf untersuchen.” 
3590 tpl=tpl1+1:PRINT #1,"In einer H 
uette findest Du einen Teil des P 
lanes."” 

3600 PRINT #1,"Nach einem Abendesse 
n gehst Du zum Schiff zurueck. 
":CALL &BB18:6G0T0 1710 

3610 tpl=tpl+1:PRINT #1,"Der Hauptl 
ing nimmt Deine Pistole und gibt 
Dir dafuer einen Teil des Planes." 
3620 PRINT #1,”"Nach einem Abendesse 
n mit dem Haeuptling,gehst Du wiede 
r zum Strand zurueck” 

3630 CALL &BB18:G0TO 1710 

3640 ” ANGREIFEN 

3650 IF einf=2 THEN PRINT #1,"”Als w 
ir auf das Dorf losrennen, oeffnet 
sich unter unseren Fuessen eine rie 
sige Falltuer.” ELSE GOTO 3 

490 

3660 CALL EBB1B 

3670 PEN O:FOR i=1 TO 400 STEP 2:PL 

OT 1,1:DRAW 680,i:NEXT 

3680 LOCGATE 15, 12:PRINT "GAME OVER” 
3690 CALL &BB18:G0T0O 4360 

3700 ° INSEL DURCHSUCHEN 

3710 CLS#1I 

3720 PRINT #1,"S5chon nach ein paar 

Metern wird der Weg sumpfig."” 

3730 PRINT #1,"Wollen Sie weiter ge 

hen (J/N)?" 

3740 a$=INKEY$ 

3750 IF a$="J" THEN 3780 

3760 IF a$="N"” THEN PRINT #1,"Da es 
der einzigste Weg ist, muessen wir 
zurueck zum Schiff.”":CALL &BB18:6G 

0oTO 1710 

3770 GOTO 3740 

3780 PRINT #1,"Nach zehn Minuten Ma 

rsch wird der Weg wieder begehbar 
5 Vor uns li 

egt eine Huette.” 

3790 PRINT #1,"Wollen Sie hinein ge 

hen (J/N)?" 


p 
T 
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3800 
3810 
3820 
ehen 


a$=-INKEY$ 

IF a$="J" THEN 3840 

IF a$="N" THEN PRINT #1,"Wir g 
wieder zum Schiff zurueck.” 


3830 GOTO 3800 
3840 ueb=INT( RND*#2) +1:IF ueb=1 THEN 
PEN 1:PRINT #1,"Alles wird auf ein 


mal so dunkel.":INK 2,0:INK 3,0:INK 
0,0:PRINT #1,"GAME OVER"”:C 

ALL &BB18:G0T0 4360 ELSE PRINT #1," 

Wir finden einen Teil des Plans."”:G 
0TO 3850 

3850 PRINT #1,"Nachdem wir in der H 
uette nichts mehr finden gehen wi 
r zum Schiff zurueck." 

3860 CALL &BB18:G0TO 1710 

3870 DATA 0,0,0,0,0,0,0,0,0,2,2,0,0 


2:FOR y=1 TO 39:RE 
AD glx,y) :NEXT y,x 

4000 CLS:BORDER 1:INK 0,0:INK 1,15: 
PEN 1:LOCATE 10, 1:PRINT "Vorgeschic 
hte"” 

4010 PRINT STRING$( 40, 154) ; :PRINT 
4020 PRINT "In einer kalten Januarn 
acht stuermt ein verwundeter Mann i 


n Dein Haus."”:PRINT "Er erzaehlt Di 

r das sein Schiff von P 

iraten ueberfallen wurde."”:PRINT "5 

ein Schiff sollte einen riesigen Sc 
hatz zum Sultan von Dahli bringen.” 

4025 PRINT "Er kann sich leider nic 
ht mehr an die Stelle erinnern wo 
die Piraten den Schatz verste 
ckt haben.” 

4030 PRINT "Er zeichnet Dir die unv 
ollstaendige Karte auf und erza 
ehlt, dass es noch einen zweiten 
Plan gibt.":PRINT "Dieser 

ist aber auf vier verschiedene In 
seln verteilt.” 

4040 CALL &BB18B 

4050 CLS:INK 0,13:BORDER 0:INK 1,1: 
INK 2,15:INK 3,6 

4060 LOCATE 1,8 

4070 FOR x=1 TO 12 

4080 FOR y=1 TO 39:IF y=39 THEN 409 

D ELSE LOCATE y+1,x+7:PEN 3:PAPER O 
:PRINT CHRA$( 240); 

4090 LOCATE y,x+7:IF g(x,y)=O THEN 
PEN 1:PRINT CHRA$( 207); 

A100 IF glx,y)=7 THEN PEN 2:PRINT C 
HR$( 196) ; 

4110 IF g(x,y)=1 THEN PEN 2:PRINT C 
HA$C 143); ELSE IF glx,y)=2 THEN PEN 
2:PRINT CHR$( 143); 

4120 IF g(x,y)=B THEN PEN 2:PRINT C 
HR$( 207); 

4130 NEXT: PRINT :NEXT 

4140 CALL 43000:CALL &BB18 

4150 RETURN 

4160 

4170 CLS:INK 0,13:BORDER 0:INK 1,1: 
INK 2,15:INK 3,6 

4180 CALL 43020 

4190 PEN 3:LOCATE y,x+7:PRINT CHR$( 

210) :CALL &BB18 

4200 RETURN 

4210 PLOT 1,ze,3:FOR i=1 TO 680 STE 

P 30:s=INT(RND*st) +10:DRAW i,ze+ts:N 

EXT 

4220 

4230 

4240 


RETURN 


DON SQL 1) GOSUB 4260 

4250 RETURN 

4260 FOR n=10 TO 30 STEP INT(AND( 1) 
#25)+1:SOUND 1,n,2,11:NEXT 

4270 RETURN 

4280 DI:IF lp=1 THEN 4300 

4290 PEN 3:FOR i=1 TO 19:LOCATE 
:PRINT CHA$( 224) :NEXT 

4300 FOR i=1 TO 400:MOVE 0,i:DRAW 6 
40,i,2 

4310 SOUND 2,0,INT(AND*10) ,15,0,0,1 
NT(AND*#25) : NEXT 

4320 TAG 


i,5 
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4330 PEN 3:FOR i=630 TO 1 STEP -3:M 
OVE i,250,3:PRINT ” ";CHA$(220);" 6 
AME OVER ";:NEXT 

4340 FOR I=1 TO 20:0UT &BC00,8:0UT 
EBD00,1:S0OUND 2,0,5,15,0,0,18:0UT & 
BC00,8:0UT &BD00,2:NEXT 


4350 FOR i=1 TO 3000:NEXT 
4360 ECLS:LOCATE 15, 12:PRINT "Nochma 


1 (J/N)"” 

4370 a$=INKEY$ 
41380 IF a$="J" 
4390 IF a$="N" 
4400 GOTO 4370 
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UNSER 
2 TELEFONSERVKE & 


Leserbriefe sind uns stets willkommen, Wir be- 


antworten sie entweder direkt oder auf den Dia- 

log-Seiten. Und wenn Sie gar nicht mehr weiter 

wissen, greifen Sie doch einfach Montag nach- 

mittags zum Telefon. Jeden Montag ab 15 Uhr 

bis 19 Uhr steht Ihnen der Telefon-Service von 

SCHNEIDER AKTIV zur Verfügung. Rufen Sie 
089/184024 


TURBO- 
TAPE 


Nicht jeder hat eine Diskette zur Verfügung oder 
denkt daran, sich in nächster Zeit eine zu kaufen. 
Trotzdem will natürlich jeder sein Programm und die 
Daten so schnell wie möglich abspeichern, also muß 
die Geschwindigkeit erhöht werden. Bei dieser Gelegen- 
heit sollte man aber gleich einmal an die Tonkopf- 
Justierung denken. Eine schlecht eingestellt Spur 
nutzt niemandem. 
Das Programm Turbo-Tape ist das Ergebnis einer gan- 
zen Reihe von Versuchen, eine komfortable DATA- 
corder-Benutzung zu ermöglichen. Es bindet zwei 
RSX-Befehle in das Schneider-Basic ein. 
Nach dem Starten des Basicladers, der die Maschinen- 
routine in den Speicher bringt (ab Adresse &A000), 
kann diese durch den Aufruf ‘CALL &A000° gestartet 
werden. Durch das Maschinenprogramm werden die 
Befehle 

ITURBO,x und ISPEEDNUM 
in das Basic eingebunden. 
Nun die Befehle im Einzelnen: 
ITURBO;,x stellt die Bandgeschwindigkeit ein, wobei 
gilt: O=SPEED WRITE 0, 1=SPEED WRITE 1 und 
2=TURBO-TAPE. Wenn die an den Befehl angehäng- 
te Zahl größer ist als 2 oder wenn gar kein Parameter 
übergeben wurde, wird eine Fehlermeldung ausgege- 
ben, die auf eine Unstimmigkeit in der Parameterüber- 
gabe hinweist. 
ISPEEDNUM gibt die augenblickliche Geschwindig- 
keit des DAT Acorders an. Hierbei ‚sagt‘ Ihnen das 
Programm, ob SPEED WRITE 0,1 oder TURBO ein- 
gestellt ist. Bei anders eingestellten Geschwindigkeiten 
(z.B. durch einen POKE an der richtigen Stelle), mel- 
det das Programm, daß hier eine unbekannte Baud- 
rate eingestellt wurde. 
TURBO-TAPE ist eine Erweiterung des SPEED 
WRITE x Befehls, die einerseits sehr viel einfacher in 
der Handhabung, andererseits auch bequemer in der 
Benutzung (durch ISPEEDNUM) ist. 


(Holger Schlichting) 


EZ = = 22 2.2 2.2.2 2.2 2.2 2 2 2.2.2.2.2 2.2.2.2 22 2.2.22 
2 8 TURBO-TAPE * 
3 # VON * 
a 8 HOLGER SCHLICHTING * 
5 7% FUER * 
6 ’% SCHNEIDER AKTIV #* 
7 8 CPC 464 Im# 


8 IHEHFHEUEHEERUEHUEHUTTITIEIE IST 
10 MEMORY E9FFF 

20 FOR adr-5AU00 TO EAIDA4:READ a$:P 
OKE adr,VAL("&"+a$) :NEXT 

30 DATA 01,13,A0O,21,0F,A0,CD,D1 

40 DATA BC,3E,C9,32,00,A0,C9,00 
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50 DATA 

60 DATA 

70 DATA 

80 DATA 

90 DATA 

100 DATA 
110 DATA 
120 DATA 
130 DATA 
140 DATA 
150 DATA 
160 DATA 
170 DATA 
180 DATA 
190 DATA 
200 DATA 
210 DATA 
220 DATA 
230 DATA 
240 DATA 
250 DATA 
260 DATA 
270 DATA 
280 DATA 
290 DATA 
300 DATA 
310 DATA 
320 DATA 
330 DATA 
340 DATA 
350 DATA 
360 DATA 
370 DATA 
380 DATA 
390 DATA 
400 DATA 
410 DATA 
420 DATA 
430 DATA 
440 DATA 
450 DATA 
460 DATA 
470 DATA 
480 DATA 
490 DATA 
500 DATA 
510 DATA 
520 DATA 
530 DATA 
540 DATA 
550 DATA 
560 DATA 
570 DATA 
550 DATA 
590 DATA 
600 DATA 
610 DATA 


00,00,00, 18,AO,C3,29,A0 


C3,DA,AO,54,55,52,42,CF 


53,50,45,45,44,4E,55,CD 


00,FE,01,C2,88,A0,7B,FE 


00,C2,49,A0,21,A1,A1,7E 
23,CD,5A,BB,B7,C2,37,A0 
21,D1,B8,36,06,23,36,53 
C9,FE,01,C2,63,A0,21,BB 
A1,7E,23,CD,5A,BB,B7,C2 
51,A0,21,D1,B8,36,00,23 
36,29,C9,FE,02,C2,B8,AO0 
21,7D,A0D,7E,23,CD,5A,BB 
B7,C2,6B,AO,21,D1,B8,36 
02,23,36, 17,C9,0C,07,2A 
2ZA,2A,20,54,75,72,62,6F 
2D,54,61,70,65, 20,56, 32 
2E,31,20,6F,6E,20,2D,2D 
20,28,43,29,31,39,38,37 
20,62,79,20,43,6F,6D,70 
75,74,20,53,6F,66,74,77 
61,72,65,20,2A,2A,2A,00 
21,C5,A0,7E,23,CD,5A,BB 
B7,C2,8B,A0,C9,07,52,53 
58,20,50,61,72,61,6D,65 
74,65,72,66,65,68,6C0,65 
72,00,3A,D1,B8,FE,02,C2 
EF,AO,21,20,A1,7E,23,CD 
5A,BB,B7,C2,E5,A0O,C9,FE 
06,C2,01,A1,21,35,A1,7E 
23,CD,5A,BB,B7,C2,F7,AO 
C9,FE,0C,C2,13,A1,21,53 
A1,7E,23,CD,5A,BB,B7,C2 
09,A1,C9,21,71,A1,7E,23 
CD,5A,BB,B7,C2,16,A1,C9 
54,55,52,42,4F,2D0,54,41 
50,45,20,69,73,74,20,61 
6B, 74,69, 76,00,53,50,45 
45,44,20,57,52,49,54,45 
20,30,20,69,73,74,20,65 
69,6E,67,65,73,74,65,6C 
6C,74,00,53,50,45,45,44 
20,57,52,49,54,45,20,31 
20,69,73,74,20,65,69,6E 
67,65,73,74,65,6C,6C0,74 
00,45,69,6E,65, 20,75, 6E 
62,65,6B,61,6E,6E,74,65 
20,47,65,73,63,68,77,69 
6E,64,69,67,6B,65,69,74 
20,69,73,74,20,65,69,6E 
67,65,73,74,65,60,6C,74 
00,07,53,50,45,45,44,20 
57,52,49,54,45,20,30,20 
73,65,6C,65,63,74,65,64 
20,21,00,07,53,50,45,45 
44,20,57,52,49,54,45,20 
31,20,73,65,6C0,65,63,74 
65,64,20,21,00 


HEADER 


Es kommt immer wieder einmal vor, daß man Infor- 
mationen über Files benötigt. Meist handelt es sich 
um Binärfiles, deren Anfangs-, End- und vielleicht 
auch Startadresse man benötigt. Erforderlich wer- 
den diese Angaben, wenn beispielsweise ein Maschi- 
nenprogramm in Verbindung mit verschiedenen Basic- 
programmen zusammenarbeiten soll und das Maschi- 
nenprogramm zu diesem Zweck auf eine andere Dis- 
kette übertragen werden muß. 

Um diese Informationen über ein Programm zu er- 
halten, können Sie das Programm HEADANA einset- 
zen. HEADANA ist die Abkürzung von Headerana- 
lyse. Der Header ist der Vorspann bei normalen Files. 
Es gibt auch Files ohne Header, deswegen der Hin- 
weis „normal“. Dieser Vorspann enthält Angaben über 
den Programmnamen, die Startadresse, die Länge usw. 
Bei ASCIH-Files fehlt im Header die Information der 
Länge, deshalb kann diese durch HEADANA auch 
nicht korrekt ausgegeben werden. Wer käufliche Dis- 
ketten-Software damit analysiert, wird bei manchen 
Programm-Namen verwundert feststellen, daß diese 
im Header anders lauten als im Directory-Eintrag. 
Diese Methode wird ggf. eingesetzt, um Software zu 
schützen. Das Programm Headana zeigt die Filena- 
men (falls keine Steuerzeichen enthalten sind) Kor- 
rekt. Das heißt, wenn durch Manipulation der Direc- 
tory-Namenseintrag nachträglich geändert wurde;der 
Name im Fileheader bleibt der alte und wird von 
Headana in der alten Version ausgegeben. 

Headana arbeitet sowohl mit Kassette als auch mit 
Diskette. Von Besitzern eines CPC 464 ohne Disket- 
tenstation müssen die RSX-Befehle DISC und 

TAPE entfernt werden. Besitzer von Vortex-Statio- 
nen müssen TAPE.IN in CAS.in ändern. 

Bei Vortex-Speichererweiterungen darf BOS nicht ak- 
tiv sein. 

Sollen Diskettenfiles analysiert werden, dann kann 
mittels der Cursorsteuertasten auf den Filenamen 
positioniert und dieser dann mittels COPY-Taste 
übernommen werden. Bei der Analyse von Kassetten- 
files kann das nächste auf der Kassette befindliche 
File dadurch gewählt werden, daß bei der Frage nach 
dem Filenamen die ENTER-Taste gedrückt wird. 

Bei Maschinenprogrammen werden Sie evtl. feststel- 
len, daß die Ladeadresse nicht mit der Adresse über- 
einstimmt, an welche später geladen wird. Im zugehö- 
rigen Basicprogramm steht hinter dem Ladebefehl 
dann auch die Ladeadresse. Der Grund ist, daß die- 
ses Binärfile evtl. von einem Assembler geschrieben 
wurde und deshalb die Adresse des Schreibpuffers im 
Header steht. Eine andere Möglichkeit, das Binärfile 
einmal in einen anderen Speicherbereich einzulesen 
und dann wieder abzuspeichern, führt ebenfalls zu die- 
sem Effekt. Weiter gibt es zur Bedienung nichts zu 
sagen. 

Damit wir aber nicht wieder Hunderte von Anrufen 
bekommen, welches Zeichen denn z.B. in Zeile 590 
steht, hier der Hinweis, es sollte eigentlich das kauf- 
männische Und-Zeichen (&) sein. Unser Drucker wei- 
gert sich bisher aber standhaft, in dem von uns — für 
Listings — gewählten Druckmode dieses Zeichen kor- 
rekt auszugeben (irgendwann bringen wir ihm das 
auch noch bei!). 

Dieses Zeichen tritt beispielsweise auch in den Zei- 
len 600, 660 und 670 auf. (LM) 
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100 HERRCHEN TEE 
110 ’* HEADANA # 
120 '* (C) 1987 BY LOTHAR MIEDEL * 
130 mr HRHRHRRRIHHRI SIEHE 
140 

150 ” Besitzer eines CPC464 ohne Di 


skettenstation muessen die A5X-Befe 
hle 


160 

E.IN entfernen! 
170 

180 IF mpgflag <1 THEN GOSUB 660:mp 
gflag=-1 

190 MODE 2:WINDOW #0,1,79,1,23:WIND 
oOW #1,80,80,4,19:WINDOW #2,1,79,23, 
25 

200 t1$="Der File-Name kann mit dem 
COPY-Cursor uebernommen werden!” 
210 t2$="Durch <ENTER> wird das näae 
chste File analysiert!” 

220 t3$="Moment bitte !":t4$="Diske 
tte (D) oder Kassette (K) ?":i$=CHRA 
$(24) 

230 PRINT #1,i$"HEADER-ANALYSE"i$:P 
AINT #2,t4$ 

240 a$=LOWER$L INKEY$) :IF a$="" THEN 


DISC und TAP 


240 ELSE IF a$ <>"d" AND a$ <> "k" 
THEN 240 
250 IF a$="d" THEN CLS #2:PRINT #2, 
t3$ 
260 IF a$="kK” THEN | TAPE.IN:kass=1: 
GOTO 280 


270 |DISC:CAT:CLS #2:kass=O 

280 PRINT #2,i1$"Bitte den Filenamen 
eingeben !"i$:PAINT #2:LOCATE #0, 1 
2 

L 

290 IF kass=0 THEN PRINT #2,t1$ ELS 
E PRINT #2,t2$ 

300 PRINT STRING$( 20,” "):LOCATE 40 
‚1,2:INPUT x$:CLS #0:CL5 #2 

310 IF kass=O THEN PRINT #2,t3$ 

320 

330 ’Werte des Filenamens an das Ma 
schinenprogramm uebergeben 
340 POKE &A007,PEEK(@x$) 
des eingegebenen Filenamens 
350 POKE &A009,PEEK(@x$+1) :POKE &AD 
UA,PEEK(@x$+2) *° Adresse des Namens 

360 CALL &AO00’ Maschinenpro 
gramm-Aufruf 

370 

380 ’basad ist die Basisadresse des 
File-Etiketts 

390 basad=PEEK( &8AD20) +PEEK( EAD21) #2 


Laenge 


56’ Basisadresse des Buffers 
Aa00 ” 

410 °------ Analyse----- 

420 


430 CLS #0:FOR I = 1 TO 7:PRINT:NEX 
T I:PRINT"ANALYSE-ERGEBNIS: ":PRINT 


440 PRINT"Filenäme = "-:IF ka 

ss THEN x=basad ELSE x=basad+1 

450 n=PEEK( x) :IF n=O THEN 470 

A460 PRINT CHR$(n) ; :x=x+1:G0T0 450 

a70 

480 fFt=PEEK(6A022) :PRINT:PRINT"File 
-Typ : "BIN$LFE,B);" - "; 

490 IF ft=0 THEN PAINT"BASIC”:GOTO 

550 

500 IF ft=1 THEN PRINT"PROTECTED BA 

SIC”:GOTO 550 

510 IF ft=2 THEN PRINT"BINAERFILE": 
GOTO 550 

520 IF ft=22 THEN PRINT"ASCII"” :GOTO 
560 

530 
540 
550 


PRINT"FILETYP UNBEKANNT 


la=PEEK( EADO25) +256*#PEEK( EAD26G) ’ 
Ladeadresse 

F1=PEFK( EAND23) +256*#PEEK( EAO24) ” 
Filelaenge 


560 


570 ba=f1/2°11:IF INT(ba) #2048<ba T 
HEN ba=INT(ba+1)’” Blockanzahl 
580 sa=PEEK( basad+26) +?256*#PEEK( basa 
d+27)’ Startadress 
e 

590 PRINT"Ladeadresse E"HEXSEI 
a,4) :PRINT"”File-Laenge : E"”HEXS 
F1,4) 

600 PRINT"Blockanzahl : E"HEXS$Cb 
a,4) :PRINT"Startadresse : E"HENX$ 


sa,4) 

610 CLS #2:PRINT #2,"Weitere Analys 
en (j/n) ? 

620 a$=LOWER$(INKEY$) :IF a$="" GOTO 
620 ELSE IF a$="n" THEN 640 ELSE 1 
90 

630 

640 MODE 2:CALL &BB9C:PRINT"Endlich 
habe ich meine Ruhe I":GALL EBB9G: 
IDISC:END 

650 ° 

660 MEMORY &97FF ’Maschinenprogramın 
in den Speicher schreiben 

670 FOR a=-&EA000 TO &A000+31 

680 READ d$:d=VAL("&E"+d$) :POKE a,d: 

NEXT 

690 DATA CD,7A,BC,11,00,98,06,00,21 
‚00,00,CD,77,BC,22,20 

700 DATA a0,32,22,30,ed,43,23,30,ed 
‚53,25,a0,cd,?d,bc,c9 

710 RETURN 


| LISTING | 


10 FFHRRHÄESERESSENENTUEREEHHENE 
20 ar THINK & TACTICS * 
30 x VON = 
40 x GERNOT HUBER * 
50 a FUER * 
60 x SCHNEIDER AKTIV * 
70 rR CPCG 464/664/6128 * 
80 FERIENSERIE TTS TEE 
90 ö 
100 MODE 1 
110 INK 0,0:INK 1,19:INK 2,6:INK 3, 
ıa 
THINK & ::: 
130 ” 
140 Symbole definieren 
150 
5 AC 5 ıIcS 160 SYMBOL AFTER 240 
170 SYMBOL 241,126, 165,165, 165,165, 
Klassiker, Oldie, und in einem runden Dutzend ver- 165, 165, 126 
öffentlicht, das ist das Spiel „Mastermind“. Wirhaben 4 
keine Ahnung, warum diese Grübelei so beliebt ist, ae Er a 
dafs es in immer neuen Versionen verlangt wird, aber Be, 2 5 
wir beugen uns selbstverständlich unseren Leserwün- 190 SYMBOL 243,126, 153,153,153,153, 
schen. Bei der Variante von Gernot Huber handelt es 189,255, 126 
sich zudem um ein besonders gelungenes Programm, 200 SYMBOL 244,126,129,153, 165,165, 
welches sich durch einfache Bedienung und gefällige 153, 129, 126 
Bildschirmdarstellung auszeichnet. 5 5 
Obwohl die Spielregeln bekannt sein dürften, sollen 210 SYMBOL 245,126,129,153,189,189, 
sie ganz kurz erläutert werden. Ziel ist es, in möglichst 193, 129,126 
wenigen (maximal 6) Versuchen zu erraten, welche 220 SYMBOL 246,126, 195, 165, 153,153, 
Zeichenkombination sich unter den Fragezeichen in 165, 195, 126 
der obersten Reihe befindet. 230 SYMBOL 247, 0, B, 24, 40, 8, 
Das Spiel: Sauberer Bildschirm und einfache 6, B, 0 
Bedienung 240 SYMBOL 248, 0, 24, 36, 8, 16, 
Nach dem Bildschirmaufbau stehen dem Spieler 32, 60, O0 
sechs verschiedene Zeichen zur Verfügung, um diese 250 SYMBOL 249, 0, 24, 36, 8, 4, 
dort einzugeben, wo sich das einzelne Fragezeichen 36, 24, 0 
befindet. Diese Zeichen werden einzeln durch 
ihre entsprechende Kennzahl eingetippt und jeweils 260 SYMBOL 250, D, B, 24, 40, 60, 
mit der ENTER-Taste bestätigt. Jede andere Taste 8, 8, 0 
löscht dieses Zeichen wieder. 270 SYMBOL 251, 0, 60, 32, 56, 4, 
Wurden nun vier Zeichen in eine Reihe eingesetzt, so_ 36, 24, 0 
errechnet der Computer ihre richtigen (d.h. sowohl die 280 SYMBOL 252, 0, 8, 16, 56, 36, 
richtigen Zeichen, die schon auf den richtigen un 36. 24 N 
nen sind, als auch welche, dessen Zeichen zwar richtig, 2 ’ 
aber die Position noch falsch sind). Hierbei zeigt Ihnen 290 SYMBOL 253, 0, 0, 24, 36, 36, 
dies nun der Computer in dem linken kleinen Kästchen 24, 0,0 
durch Punkte und Kringel an. Dabei bedeutet: 300 SYMBOL 254, 0, 0, 24, 60, 60, 
Ein Punkt = Zeichen auf der richtigen Position 24, 0,0 
Ein Kringel = nur das Zeichen ist richtig. 
Schließlich zeigt sich das einzelne Fragezeichen in der Eee ee 0,148,144,244,149, 
nächsten Versuchsebene wieder. ee Se 
Sie können bis zu 6mal raten, falls Sie es innerhalb 310 
dieser Anzahl nicht schaffen, wird die Kombination 320 ’Bildschirmaufbau 
verraten und das Spiel gilt als verloren. 330 
340 CLS:RESTORE:schwarz=0:weiss=0O 
343 LOCATE 6,4:IF hi<1 OR hi>6 THEN 


PRINT CHR$( 253) ELSE PRINT CHR$( 2A 
S+hi) 
345 PLOT 8,8,1:DRAWR 624,0:DRAWR 0, 
384 :DRAWR -624,0:DRAWR 0, -384 
350 PLOT 304,8:DRAWR 0,384 


360 PLOT 56,40,2:DRAWR 192,0:DRAWR 
0,320:DRAWR -192,0:DRAWR 0,-320 
370 MOVE 102,40:DRAWR 0,320 
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380 xpo=-60:FOR i=1 TO 6:READ ypo:PL 
OT xpo,ypo-22,3:DRAWR 38,0:DRAWR 0, 
40:DRAWR -38,0:DRAWR 0,-40:NEXT 


390 DATA 66, 114, 162,210, 258,306 

400 FOR i=1 TO 6:READ pl 

410 DATA 88, 136, 154,232, 280,328 

420 PLOT 56,pl,2:DRAWR 192,0:NEXT 
430 FOR i=1'T0 6:READ yp,ch 

AAO LOCATE 8,yp:PRINT CHRA$( ch) :NEXT 
A450 DATA 7,252,10,251,13,250, 16,249 


‚19,248,22,247 

460 FOR i=0O TO S:RESTORE A70:FOR ii 
=1 TO 8:READ xp,yp:PLOT xp,yp+(i*48 
),1:NEXT ii,i 

470 DATA 72,56,72,70,88,56,88,70,13 
4,56, 166,56, 198,56, 230,56 

ABO xp=7:yp=A:PEN 1 

485 LOCATE 5,4:PRINT CHR$( 255) 

490 xp=xp+2:LOCATE xp,yp:PRINT"?" 
500 IF xp<>15 THEN 490 

510 PEN 3 

520 LOCATE 23,2:PRINT"THINK & TACTI 
Cs" 
530 
86, 


LOCATE 26,4:PRINT CHRA$( 164) ; "19 
by" 

540 LOCATE 25,6:PRINT"HUGE - SOFT” 
550 PEN 2:LOCATE 23,9:PRINT"Tastenb 
elegung:":LOCATE 23, 10:PRINT STRING 
$( 15,”-”) 

560 PLOT 344,136, 1:DRAWR 256,0:DRAW 
R 0, 144:DRAWR -256,0:DRAWR 0,-144 
570 FOR i=1 TO 6:READ xp,yp:LOCATE 
XP,yYP 

580 PEN 2:PRINT USING"#";i; :PRINT"= 
"-:PEN 1:PRINT CHRA$( 240+i) :NEXT 

590 DATA 25,14,29,14,33,14,25,12,29 
‚12,33,12 

600 LOCATE 23, 16:PRINT"ENTER=Bestae 
Et: 
610 LOCATE 21,19:PRINT CHR$( 254) ;:P 
EN 2:PRINT"” Farbe & Position" 

620 LOCATE 23,20:PRINT"Richtig"” 

630 PEN 1:LOCATE 21,22:PRINT CHR$(2 
53) ;:PEN 2:PRINT"” nur Farbe" 

640 LOCATE 23,23:PRINT"Richtig"”:PEN 


650 ’ 
‘Computer waehlt vier Zeichen a 


670 

680 FOR i=-1 TO 4 

690 RANDOMIZE TIME*#RND 

700 x=INT(RND#?) 

710 IF x=0 THEN 690 

720 z(i)>=x 

730 NEXT 

740 zeichen$=CHR$( 240+z( 1)) +" 
$(240+z(2))+"” 
CHR$( 240+z(4)) 
750 


"+CHR 
"+CHR$( 240+z(3)) +" "+ 


760 "Steuerprogramm 

770 

750 yp=25 

790 FOR durch=1 TO 6:xp=7:yp=yp-3 
800 FOR h=1 TO A:flag(h) =0:NEXT 

810 IF schwarz=4 THEN hi=durch:G6OTO 
840 

820 GDSUB 900:G05UB 1050:G05UB 1190 


830 NEXT durch 
840 LOCATE 6,4:IF hi<s1 OR hi>6 THEN 


PRINT CHR$( 253) ELSE PRINT CHA$(24A 
5+hi) 


841 LOCATE 9,4:PRINT zeichen 

850 GALL &BB06:G0T0O 340 

8560 END 

870 7 

880 ’Eingabe - Spieler 

890 

900 FOR i=1 TO 4:xp=xp+2 

910 LOCATE xp,yp:PRINT"”?" 

920 a$=INKEY$ 

930 IF a$="" THEN 920 

940 IF VAL(a$)<1 OR VAL(a$)>6 THEN 
920 

950 zspieler=-VAL(aß$) 

960 LOCATE xp,yp:PRINT CHA$( 240+zsp 
ieler) 


970 a$=INKEY$ 

980 IF a$="" THEN 970 

990 IF a$=CHR$( 13) THEN zs(i)=zspie 
ler:ELSE GOTO 910 

1000 NEXT i 

1010 RETURN 

1020 CALL &BBO6 

1030 RUN 

1040 
1050 ”schwarze und weisse Richtige 

berechnen 

1060 ” 

1070 schwarz=D:weiss=0 

1080 FOR i=1 TO 4:zflag(i)=0O:zsflag 
(i)=0:NEXT 

1090 FOR i=-1 TO 4 

1100 IF zs(i)=z(i) THEN schwarz=sch 
warz+1:zflag(i)=1:zsflag(i)=1 ELSE 

1110 
1110 
1120 
1130 


NEXT i 

FOR i=1 TO A:FOR ii=1 TO 4 

IF zflag(ii)=1 OR zsflag(li)=1 
THEN 1150 

1140 IF zs(i)=z(ii) THEN weiss=weis 
s+t1:zflag(ii)=1:zsflag(i)=1 ELSE 11 


NEXT ii 
NEXT i 
RETURN 


"Routinen fuer Punkte setzen 
1200 
IF weiss=D THEN 1250 


LISTING 


1220 ws=253:FOR tzeich=1 TO weiss 
1230 ON tzeich GOSUB 1330, 1340, 1350 
‚1360 

1240 NEXT 

1250 IF schwarz=0O THEN 1290 

1260 ws=254:FOR tzeich=(weiss+1) TO 
(weisstschwarz) 

1270 ON tzeich GOSUB 1330, 1340, 1350 
‚1360 
1280 
1290 
1300 
1310 ’PUNKT setzen 

1320 

1330 LOCATE 5,25-(durch*#3) :PRINT CH 
A$C7) ;CHRA$(ws) :RETURN 

1340 LOCATE 5,24-(durch*#3) :PRINT CH 
A$C7) ;CHR$Cws) :RETURN 

1350 LOCATE 6,25-(durch*#3) :PRINT CH 
A$L7) ;CHR$Cws) :RETURN 

1360 LOCATE 6,24-(durch*3) :PRINT CH 
A$L7?) ;CHR$(ws) :RETURN 

1370 
1380 
1390 END 


NEXT 
RETURN 


’of Listing 


DAS 
GESCHENK! 
DIE 
DISKETTE 
ZU 
DIESEM 


SAMMEL- 
BAND 


BESTELL- 
COUPON 
AUF SEITE 73 


KARTAGO 


Wer gerne pokert und seine Kombinationsfähigkeit 
überprüfen will, der wird von ‚‚Kartago“‘ begeistert 
sein. Dabei handelt es sich nicht um das eigentliche 
Pokerspiel, jedoch werden die Kartenkombinationen 
dieses Spieles zur Bewertung herangezogen. Man 
sollte also schon wissen, was ein „Fullhouse“ ist, be- 
vor man das Listing eintippt, oder man benutzt 
„Kartago“, um endlich einmal die Pokerregeln zu 
lernen und seine Fähigkeiten zu trainieren. 


Programmbeschreibung: Mit Glück oder Verstand 
Nach dem Spielstart erscheinen 5 Reihen mit vorerst 
leeren Karten. In der rechten oberen Bildschirmecke 
erscheinen nacheinander Kartensymbole, die Sie mit 
den Cursortasten in ein leeres Feld irgend einer Rei- 
he einbauen können. Sind die 25 Kartensymbole ver- 
teilt, werden die einzelnen Reihen entsprechend den 
Pokerregeln bewertet. Sie müssen also von Anfang 
an darauf achten, in welcher Zeile Sie ein Fullhouse 
oder ein Streetflash aufbauen. Beachten Sie, welche 
Karten bereits ausgegeben sind und auf welche Sie 
noch hoffen können. 


Eu 
el>- 
> 
= - ai 
7 18 
% Yy 
7 
* Eu ? 
de 
& 


Für die schwierigere Spielstufe wählen Sie das Kartago- 
spiel mit 5 verdeckten Karten. Bei dieser Variante lie- 
gen bereits 5 Karten in der Hauptdiagonale, die aber 
so lange verdeckt gehalten werden, bis zwei Karten 
in der Reihe oder Spalte gelegt wurden. So kommt 
zu Ihrer Kombinationsgabe noch das Quentchen 
Glück hinzu, auf das Sie ja auch bei einem normalen 
Pokerspiel angewiesen sind. 
Für die beiden Schwierigkeitsgrade existieren fairer- 
weise unterschiedliche Highscore-Tabellen. Diese lie- 
gen als separates File auf Kassette oder Diskette und 
werden bei Programmstart eingelesen. Dazu muß 
man entweder dieses File zuvor erstellen (siehe Zeile 
870-910) oder man gibt bei Erstbenutzung des Pro- 
grammes die Zeile 

85 GOTO 100 
ein (vergleiche REM-Zeile 81). Nachdem dann ‚,‚Kar- 
tago“ die Highscore-Dateien (für beide Schwierig- 
keitsgrade) nach dem ersten Spiel erstellt hat, kann 
die Zeile 85 entfernt werden, und das Listing wird 
ohne diese Zeile in der letztgültigen Version abge- 
speichert. 
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LISTING 


1. BRRRSIHBHRIEIHIHRHIRISRIESSESERESESESESESESENF EN 
2 ER KARTAGO * 
3 ’# VON * 
a '* JUERGEN GEIER * 
SE FUER * 
6 ’* SCHNEIDER AKTIV #* 
7 8 CPC 664/6128 je* 
B RER EUER 


10 MODE 1:BORDER 0:INK 0,16:INK 1,1 
:INK 2,0:INK 3,6:DIM score( 16) ‚name 
q$( 16) 
20 PRINT:PRINT"” Koennen Sie kombin 
ieren und pokern ?" 
30 PRINT:PARINT”" KARTAGO testet Ihr 
e Faehigkeit !":PRINT 
40 PRINT” Es erscheinen 
arten und""” nacheinander Kartenbild 
er, die Sie mit"”" Cursor- bzw Copyt 
asten in der passenden”” Kombinatio 
n einbauen muessen."”"” Danach werden 
alle fuenf Reihen und"”"” alle fuenf 
Spalten einzeln nach" 

50 PRINT” Pokerkombinationen bewert 
et."" Es gibt zwei Spielvarianten"”" 
und auch zwei verschiedene HIGHSCO 
RE-"" Tabellen, in die sich gute Sp 
ieler"" eintragen koennen."”” Waehle 
n Sie 5 verdeckte Karten, so sind"; 
60 PRINT” die 5 Karten in der Haupt 
diagonalen"”" so lange verdeckt, bis 
zwei Karten"”” in diese Zeile oder 
Spalte gelegt"" werden. Dann decken 
Sie sich auf."”"” Waehlen Sie O0 verd 
eckte Karten, so sind keine Karte 

n verdeckt.” 

?D PEN 3:PRINT:INPUT"” Wieviel verde 
ckte Karten (0O oder 5)";zu:PEN 1 

80 IF zu=0 THEN datei$="SCORASO"” EL 
SE IF zu=5 THEN datei$="SCORASS"” EL 
SE 70 

81 ’ACHTUNG! Bei der Erstbenutzung 

des Spiels bitte zusaetzlich eingeb 
en:>>85 goto 100<< Damit wird die Z 
eile 90, wo der Highscore eingelese 
n wird, uebersprungen. Wenn die bei 
den Highscore-Dateien angelegt sind 
‚ die Zeile 85 wieder entfernen 

90 OPENIN datei$:FOR i=1 TO 16:INPU 
T#9,nameq$(i),score(i) :NEXT:CLOSEIN 
100 MODE 1:PEN 1:FOR i=1 TO 8:READ 

wert$(i) :NEXT:DATA A,K,D,B,10,9,8,7 
110 FOR i=1 TO 9:READ blatt$(i),gew 
inn(i) :NEXT 

120 DATA ROYFLASH,500,STREETFLASH, 4 
00, POKER, 300, FULLHOUSE, 150, FARBENFL 
ASH, 120, STREET, 100,DRILLING,5 
0,2 ZWILLINGE, 20, ZWILLING, 10 

130 WINDOW#4,26,40,16,25:PAPER#4,2: 
PEN#4,0:PRINT#4,CHR$( 150) ;STRING$( 1 
4,154); 


5*#5 leere K 


140 FOR k=1 TO 9:LOCATE#4,1,kK+1:PRI 

NT#4,CHRA$( 149) ;USING”\ \";b 
latt$(k);: PEN#4,3:PRINT#4, USING 
"AHH” ; gewinn(k) ; :PEN#4,0:NEXT 

150 FOR y=-1 TO 25 5TEP 5:FOR x=1 TO 
25 STEPS 

160 IF zu=-5 AND x=y THEN GOSUB 450 
ELSE GOSUB 500 

170 NEXT :NEXT:RANDOMIZE TIME 

180 FOR i=1 TO zu 

190 wert=INT(AND*#B) +1:farbe=225+IN 
TERND*4) +1:IF karte( wert, farbe-225) 
=1 THEN 190 ELSE karte(wert, 
farbe-225) =1:wertx(i,i)=wert:farbx( 
i,i)=farbe 

200 NEXT 

210 FOR ende=-1 TO 25-zu:RANDOMIZE T 
IME 

220 x=33:y=3:PEN 3:G056UB 500:605UB 
A10:PEN 3:x=27:y=13:LOCATE x,y:CURS 
OR 1 

230 WHILE INKEY(0)<DO AND INKEY(1)<O 
AND INKEY(2)<O AND INKEY(8) <O:WEND 
240 WHILE INKEY(9) <0:G0OSUB 540:L0CA 
TE x,y:WEND 

250 WHILE x MOD 5=0 OR x>25:x=x-1:W 
END:x1=INT(x/5)+1:IF y MOD 5=0 THEN 
y-yi 

260 x=(x1-1)#5+1:y1=INT(y/5)+1:y=(y 
1-1)#5+1:IF wertx(x1,y1)>O THEN 230 
270 IF x<?>y OR zu=0 THEN GOSUB 440: 
wertx(x1,y1)=wert:farbx(x1,y1)=farb 
e; reihe(y1)=reihe( y1) +1 
:spalte(x1)=spalte(x1)+1 ELSE 230 
280 FOR k=1 TO 5 

290 IF zu=5 THEN IF reihe(k)=2 OR 
spalte(k)=2 THEN reihe(k)=3:spalte( 


k)=3: x=(k-1)#5+1:y=(k-1)* 
5+1:PEN 3:G606UB 580 
300 NEXT 


310 NEXT ende:CURSOR 0:WINDOW#3,26, 
40,3, 16:PAPER#3, 1:PEN#3,2 

320 PRINT#3," ABRECHNUNG ":PRINT# 
3,SPC( 14) :PRINT#3," SPALTE REIHE" 

330 FOR i=1 TO 5:LDOCATE#3,1,i+3:PRI 
NT#3,i; 

340 FOR j=1 TO 5:wert( j) =wertx(i,j 
N 59 


36 PRINT#3,"” ae 

360 FOR j=-1 TO 5: wert( j) =wertx(J,i 
):farbe( j)=farbx( j,i) :NEXT:GOSUB 59 
8) 

370 PRINT#3,"” "” 

380 NEXT:CLEAR INPUT:PAPER#3,3:PRIN 
T4#3,5PC( 14) :PRINT#3," GESAMTPUNKTE 


390 PRINT#3,SPC( 14) :PRINT#3," M 
USING" ####" ;pkte; :PRINT#3,"” ” 


400 a$=INKEY$:IF a$="" THEN 400 ELS 39 
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E 800 

A410 ’Karte zeichnen an x,y 

420 wert=INT{ RND*#8) +1: farbe=225+INT 
(AND#4) +1 

430 IF karte(wert, farbe-225)=1 THEN 
410 ELSE karte(wert, farbe-225)=1 


440 IF farbe-227 OR farbe-228 THEN 
p=3 ELSE p=2 


450 LOCATE x+1,y+1:PEN p:PRINT 

(farbe) 

460 1.DCATE x+2,y+2:PEN p:PRINT 
G”"\\”;wert$(wert) 

A7D LOCATE x+3,y+3:PEN p:PRINT 
( farbe) :RETURAN 

480 ’Kartenrueckseite zeichnen 
490 FOR i=0O TO 4:LOCATE x,y+i:PRINT 
STRING$(5,238) :NEXT :RETURN 

500 ’Kartenraender zeichnen 

510 LOCATE x,y:PRINT CHR$( 150) ;STRI 
NG$( 3, 154) ; CHR$( 156) 

520 FOR i=1 TO 3:LOCATE x,y+i:PARINT 
CHR$( 149) ” "CHR$C 149) : NEXT 

530 LOCATE x,y+4:PRINT CHA$( 147) ;5T 
RING$( 3,154) ; CHR$( 153) ; : RETURN 

540 ’Bewegung des Cursors 

550 IF INKEY(8)=0 AND x>1 THEN x=x- 
1 ELSE IF INKEY( 1)=0 AND x<27 THEN 
x=x+1 

560 IF INKEY(2)=0O AND y<25 THEN y=y 
+1 ELSE IF INKEY(O0)=O AND y>1 THEN 
yey-} 

570 RETURN 

580 wert=wertx(k,k) :farbe=farbx(k,k 
) :G0OSUB 500:G05SUB 440:RETURN: "Karte 
umdecken 

590 ’Gewinnplan checken 

600 GOSUB 660:IF paar=-D THEN GOSUB 
710:605UB 720 ELSE GOSUB 730 

610 IF flash=1 THEN o=5 ELSE IF str 
eet=1 THEN 0=6 

620 IF street=1 AND flash=1 THEN IF 
wert( 1)=1 THEN o=1 ELSE o=2 

630 IF vierl=1 THEN o=3 ELSE IF ful 
lhouse=1 THEN o=4 ELSE IF drill=1 T 
HEN o=7 ELSE IF paar2=1 THEN 
o=B ELSE IF paar=1 THEN o=9 

640 street=0:flash=0O:vierl=-0:fullho 
use=0:drill=0:paar2=0:paar=O 

650 pkte=pkte+tgewinn(o) :PRINTA3," " 
USING” #44” ; gewinn( 0) ; :0o=0:RETURN 
660 ’Gewinnplan durchgehen 

670 FOR t=1 TO 4:FOR tt=t+1 T0O5 
680 IF wert(t)>wert(tt) THEN h=wer 
t(t) :wert(t)=wert(tt) :wert(tt)=h 
690 NEXT:NEXT: ’(Geordnet nach Karte 
nwerten) 

700 FOR t=1 TO 4:IF wert(t)=wert(t+ 
1) THEN paar=1:RETURN ELSE NEXT:paa 
r=0:RETUAN 

710 FOR t=1 TO A:IF farbe(t)<>farbe 


CHR$ 


USIN 


CHR$ 


(t+1) THEN flash=0:RETURN ELSE NEXT 
:flash=1: RETURN 

720 FOR t=1 TO 4:IF wert(t)+1<>wert 

(t+1) THEN street=DO:RETURN ELSE NEX 
T:street=1 :RETURN 

730 FOR t=1 TO 3:605UB 780:NEXT 

740 IF wert( 1)=wert(4) OA wert[2)-w 

ert(5) THEN vierl=1 

750 IF drill=1 AND wert( 1)=wert( 2) 

AND wert(4)=wert(5) THEN fullhouse= 
1:RETURN 

760 IF drill=0O AND vierl=0 AND ( (w 
ert(1)=wert(2) AND wert(3)=wert(4)) 
oR (wert(2)=wert(3) AND 
wert(4)=wert(5)) OR (wert( 1) =wert(2 
) AND wert(4)=wer 
t(5)) ) THEN paar2=1 "Zwei Paare 

770 RETURN 

780 IF wert(t)=wert(t+1) AND wert(t 

+1)=wert(t+2) THEN drill-1 

790 RETURN 

800 ’HIGHSCORE-TABELLE 

810 CLEAR INPUT:MODE 1:INK 0,0:INK 
1,15:INK 2,24:INK 3,5:BORDER 3 

5820 IF pkte=score( 15) THEN PRINT:PR 
INT”Name (10 Buchstaben) ":PARINT:INP 

UT x$:CLS :score( 16) =pkte:nameq 

$( 16) =x$:G05SUB 890 

830 LOCATE 11,1:PEN 3:PAINT"#####r* 

REREREERRERESE"-LOCATE 11,2 

840 PRINT"#HIGHSCORE *#":L0 

CATE 11,3: PAINT"#rrreeeneererenenen 

za." 

850 PEN 2:PRINT:FOR i=1 TO 15:L0OCAT 

E 10,i+5:PRINT USING"##";i;:PAINT". 
"::PEN 3; PRINT USING”\ 

\";nameq$(i); :PEN 2:PRINT USING"AHH 

#" ;score(i) :NEXT 


860 PEN 1:LOCATE 7,23: PRINT" Ihr E 
rgebnis: "pkte 
870 IF pkte>score( 15) THEN OPENOUT 


datei$:FOR i=1 TO 16:WRITE#9,nameq 
$(i), score(i) :NEXT:CLOSEO 
UT 
880 a$=INKEY$:IF a$="" THEN 880 ELS 
E RUN 
890 FOR i=1 TO 15:FOR j-i+1 TO 16 
900 IF score(i)<score( j) THEN x=sc 
ore(i) :score(i)=score( j) :score( j) =x 
ıx$= nameq$(i) :nameq$(i)= 
nameq$( j) :nameq$( j) =x$ 
910 NEXT :NEXT ::RETURN 


SCHNEIDER AKTIV 
JEDEN 


MONAT NEU! 
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ANORGANIK 


Chemie findet nicht nur dann statt ‚‚wenn es 

knallt und stinkt‘, sondern hat auch viel mit Mathe- 
matik zu tun. Und die fällt nicht jedem leicht, der 
ansonsten mit diesem Schul- und Studienfach recht 
zufrieden ist. Schneider aktiv präsentiert die Rettung: 
Das Chemieprogramm ‚‚Anorganik“ von Steffen 
Kloppenburg dient zur Berechnung und Umrechnung 
von Konzentrationen bei Lösungen, Titrationen, Säu- 
ren, Basen und Löslichkeiten. Es kann zum bequeme- 
ren und schnelleren Ausführen dieser Rechnungen in 
der Schule, im Studium oder im Labor eingesetzt 
werden. „Anorganik“ ist vollständig in Basic geschrie- 
ben, damit der Anwender leichter den Aufbau und 
die Funktion des Programms nachvollziehen und 
eventuell eigenen Bedürfnissen anpassen kann. Das 
Programm ist durch eine Menüsteuerung sehr einfach 
zu bedienen. 


EINFACHE MENÜFÜHRUNG DURCH 
VIER PROGRAMMTEILE 


Die Zeilen 100 — 150 enthalten einen kurzen Vor- 
spann, von dem man durch Tastendruck ins Haupt- 
menü gelangt. Dieses befindet sich in den Zeilen 

180 — 270 und stellt dem User 4 Programmteile zur 
Verfügung: Konzentrationsberechnungen von Lösun- 
gen, Auswertung von Titrationen, Berechnung von 
Löslichkeiten und pH-Werten. Die einzelnen Menü- 
punkte werden durch Tastendruck angewählt. 

Der Programmteil ‚‚Konzentrationen von Lösungen“ 
beginnt mit einem Menü, das die Optionen ‚‚Lösun- 
gen ansetzen‘ und „Lösungen umrechnen“ bietet. 
Der Punkt „Lösungen ansetzen“ dient zur Berech- 
nung der zum Ansetzen bestimmter Lösungen benö- 
tigter Stoffmengen. Dabei können Volumen und 
Konzentrationseinheit beliebig sein. Die zur Auswahl 
stehenden Einheiten stehen in einem Untermenü. 
Für die Berechnung mit der Einheit mol/l wird in 
einem Unterprogramm ab Zeile 2420 die Molmasse 
aus der Summenformel ermittelt. Bei den Einheiten 
‘%‘ und ‘ppm‘ (parts per million) wird vorausgesetzt, 
daß Wasser als Lösungsmittel eingesetzt wird. 
Beispiel: 

250 ml 5%ige NaCl-Lösung werden 12.5 g Kochsalz 
benötigt. 

Für 1000 mi 0,01 molare Natriumsulfadlösung 

sind 142,048 nötig. 

Im Programmteil ‚Lösungen umrechnen‘ werden 
Konzentrationen von einer Einheit in die andere um- 
gerechnet. 


Beispiel: 

S%ige NaCl-Lösung entspricht einer 0.835546 molaren 
Lösung. 

Eine Lösung von 0.0000015 g KOH pro Liter ent- 
spricht einer Lösung von 15 ppm. 

Mit dem Programmpunkt ‚‚Titrationen“ lassen sich 
Neutralisations- und Redoxtitrationen auswerten, die 
zur Bestimmung der Konzentration unbekannter Lö- 
sungen dienen. Dabei kann man mit Hilfe des Ver- 
brauches der bekannten Eichlösung (Titer) die Kon- 
zentration der unbekannten Lösung (Vorlage) errech- 
nen. Als Equivalent bezeichnet man dabei die Wertig- 
keit des Stoffes (bei Neutralisationen Anzahl der 
Protonen oder Hydroxidionen pro Molekül; bei 
Redoxtitrationen die Abgabe von Elektronen auf bei- 
den Seiten der Reaktionsgleichung). Sollte die Kon- 
zentration des Titers in einer anderen Konzentration 
als mol/l bekannt sein, wird automatisch der Pro- 
grammteil „Lösungen umrechnen“ angesprungen. 
Danach kehrt das Programm wieder zurück. 

Beispiel: 

Bei der Neutralisation von 30 ml einer unbekannten 
HCI-Lösung sind 60 ml 2molare NaOH nötig. Die 
unbekannte Lösung ist 4 molar. 

Das Programmteil ‚‚Löslichkeiten“ dient zum Um- 
rechnen zwischen Löslichkeit (in g/l) und Löslich- 
keitsprodukt (in mol/]). 

Beispiel: 

Es lösen sich maximal 0.00163 g Silberchlorid pro 
Liter Wasser. Das entspricht einem Löslichkeitspro- 
dukt von 1.7*10*-10 mol pro Liter. 

Der Programmteil ‚pH-Werte‘ ermöglicht die Be- 
rechnung von pH-Werten, pks- bzw. pkb-Wert und 
Konzentration der Säure oder Base aus den beiden 
anderen Werten. Der pks-Wert gibt die Bereitschaft 
einer Säure Protonen abzugeben, der pkb-Wert die 
einer Base, solche aufzunehmen, wieder. 

Beispiel: 

0.001molare Essigsäure hat den pH-Wert 4. 

Der pks-Wert beträgt 5. 


Anmerkung der Redaktion: 


Wir haben das Programm ‚‚Anorganik““ so gut getestet, 
wie es uns möglich war. Gerade in solchen Program- 
men machen sich Tippfehler aber besonders unange- 
nehm bemerkbar, weil das Programm augenscheinlich 
korrekt abläuft, unter Umständen aber fehlerhaft 
rechnet. Wir raten deshalb zu größter Sorgfalt bei der 
Eingabe und bitten Sie, die Werte auch noch einmal 
zu überprüfen. (TB) 
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1 U 0 a = = = 2 2 2 22 2 22.202202 20 022 22.2222 22 22 
20 ’* ANORGANISCHE CHEMIE * 
30 ’* VON * 
40 °’* STEFFEN KLOPPENBURG * 
so ’* FUER ” 
60 ’* SCHNEIDER AKTIV * 
70 '# CPC 464/664/6128 je* 
[2 To nd 2 2 2.2 2 2 2.2 2.22.22. 2.2.2.2 2 202.2 22.2.2.2.2.2.22 
90 

100 MODE O 

110 LOCATE 5,4:PRINT"KLOPPENBURG-" 
120 LOCATE 7,6:PRINT"SOFTWARE"” 


130 LOCATE 5,11:PRINT"praesentiert" 
140 LOCATE 1,16:PRINT"Anorganische 
Chemie” 

150 a$=INKEY$:IF a$=""THEN 150 

160 SYMBOL AFTER 93:5YMBOL 94,618,6& 
18,618,618,8697E,&630,&18: ’Indexpfeil 
170 help=0:DIM k$(8) :DIM kK1$(8) 

180 MODE 1:CL5 
190 LOCATE 3,5 
hemie : Menue" 
200 LOCATE 3, 8 


210 LOCATE 3,8 


:PRINT"Anorganische C 
:PRINT"============== 


:PRINT"Konzentationen 


von Loesungen . : 1" 
220 LOCATE 3, 10:PRINT" Titration 
230 LOCATE 3 3, RE REN 
>40 LOCATE 3, 1a!PRINT"pH-Werte 
250'LOCATE 3, 17!PRINT"Ihre Wohl 
og" 
260° a= =VAL(INKEY$) : :DN a GOTO 290, 133 


0,1510, 1850 
270 GOTO 260 


2B0 ’=====--=-=============> 
290 MODE 1:CLS:LOCATE 3,5:PRINT"Loe 
sungen" 
300 LOCATE 3,6:PRINT"=========" 
310 LOCATE 3,8:PRINT"Loesungen anse 
tzen . . ee: 
320 LOCATE 3, 10: PRINT"Loesungen umr 
echnen . . ur DE 
330 LOCATE 3, 12: PRINT" zurueck ins H 
auptmenue . Fee 
340 LOCATE 3, 15: PRINT"Ihre Wahl 

.. yg" 


350 a= VALCINKEYS$): ON a GOTO 380,750 
‚180 

360 GOTO 350 

390 "===, -- nn 

380 MODE 2:LOCATE 3,5 

390 PRINT"Geben Sie die Einheit fue 

r die Konzentration ihrer Loesung 4 

n ."” 


A100 LOCATE 4,8: en / Liter 
gr 


420 LOCATE 4,10:PRINT"mol / Liter 


& u 2" 
430° LOCATE 4,12:PRINT”ppm 
ä SOuR- "a" 
aan LOCATE 4,14:PRINT"% .. 
er 
ASO LOCATE 4,16:PRINT"zurueck ins U 
ntermenue . . 2 2 22 2 2 2 2 2... 
2,5 
460° LOCATE 4,18:PRINT"zurueck ins H 
Fe a er A u a at re 
2.67 
470° LOCATE 4,21:PARINT"Ihre Wahl 


gu 

480° a= =VAL( INKEY$) : DN a GOSUB 500,50 
0,500,500, 290, 180 
490 GOTO 480 
500 CLS:GOSUB 2370 
510 k$( 1) >= "Gramm/Liter” 
Liter”:k$( 3) ="ppm”:k$(4)="%"” 
520 LOCATE#2,1,3:PRINT#2,"Geben Sie 

die Formel des zu loesenden Stoffe 
san :" 

530 INPUT#2," "‚f$ 
540 PRINT#2,"Geben Sie das vorgegeb 
ene Volumen in Millilitern an :" 
550 INPUT#2, ‚vlsg 
560 PRINT#2,"Geben Sie die 
ation in " htla);” an :" 
570 INPUT#2, "K 

580 ON a GOSUB 600, 660, 690,720 
590 *---- g/l 
600 gs=k*vlsg/ 1000 
610 PRINT#2:PRINTZ2, 


:k$(2)="mol/ 


Konzentr 


"Zum Ansetzen v 


on ";vlsg; "ml er sind ";gs;"g 
620 PRINTA2,f noetig." 
630 LOCATEA2, a RT 


bitte irgendeine Taste druecken 

640 a$=INKEY$:IF a$=-""GOTO 640 ELSE 
380 
650 ’---- mol/l 
660 GOSUB 2430 
670 gs=mm*k*#v1lsg/1000:G6G0T0 610 
680 ’---— ppm 
690 gs=kK*visg/1E+D09 
700 GOTO 610 
710 °--- % 
720 gs=k*vlsg/100 

730 GOTO 610 

740 ’====Loesung umrechnen========-- 
750 ELS:MODE 2 

760 LOCATE 5, 1:PRINT"Konzentratione 
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n umrechnen" 
770 LOCATE 4, ‚2: PRINT"============- = 


780 LOCATE 3,5: FAIR RnB in ppm 
et 1" 

790 LOCATE 3,7: PRENTERD® in mol/ 

3 re: Dr nu ur faagt Al Sun he 
re VE 2" 

800 LOCATE 3,9:PRINT"mol/l in g/l 
Ba a" 

810 LDCATE 3,11:PRINT"g/1 in mol 

le 22: na ee Are 


8 Be : Due 
820 LDCATE 3,13:PRINT" ui in % 
Pe SER: "5" 

830 LDCATE 3,15:PRINT"% in 


- - - - - - - - 


au ET e - "6" 
840 LOCATE 3,17:PRINT"mol/l in % 


7" 


850 LOCATE 3,19:PRINT"% in mol 

/ı 2 B 

FE > 

860 LOCATE 3,21:PRINT"zurueck ins H 

auptmenue . ....2.2.2.0. e 
u | 


870 LOCATE 3,24:PRINT"Ihre Wahl 


gu 
880 a= -VALCINKEY$) : IF a<1 OR a>9 THE 
N 880 
890 IF o=9 GOTO 180 
900 CLS:MODE 2:G05UB 2370 
910 PRINT#2,"Geben Sie bitte die Fo 
rmel des zu loesenden Stoffes an :" 
920 INPUT#2," "‚r$ 
930 K$( 1) ="mol/1":k$(2)=" 
="mol/1":kK$(4)="g/1":K$(5)=-"g/1":K$ 
(6)=-"% ":K$L7)=-"%":K$(8B)="mol/1" 
940 K1$C1)=-"ppm":K1$(2)="mol/1":K1$ 
(3)="g/1":K1$(4) ="mol/1":kK1$(5)="% 
"7k1$(6)="g/1":K1$[7)="mol/i1":K1$(8 
J="g" 
950 PRINT#2,"Geben Sie bitte die Ko 
nzentration in ";k$la);" an :" 
960 INPUT#2," ‚k 
970 ON a GOTO 990, 1060, 1100, 
90, 1220, 1250, 1290 
980 ed in ppm---- 
9390 GOSUB 2430 
1000 me=-kK*mm*1000000 
1010 PRINT#2,"Eine Loesung von ";k; 
k$la);" ";f$;" entspricht einer Loe 
sung von ";me;k1$(a);"”. 
1030 LOCATE#2,15,25:PRINT#2, "weiter 

irgendeine Taste druecken" 


ppm":k$( 3) 


1150, 11 


1040 a$=INKEY$:IF a$=""THEN 1040 
1045 IF help=1 THEN RETURN ELSE 750 
1050 ’---ppm in mol/1l-------- 

106N GOSUB 2430 

1070 me=k/{ 1000000*mm) 

1080 GOTO 1010 

1090 ’--mol/l in g/1l--------- 

1100 GOSUB 2430 

1110 me=k*mm 

1120 me=k*mm 


1130 GOTO 1010 
1140 °----- 2/1 in nol/Ire-- 
1150 GOSUB 2430 


1160 me=k/mm 

1170 GOTOQO 1010 

1180 ’----- e/lin % 
1190 me=k/10 

1200 GOTO 1010 


1210 "---- % in g/l ------- 
1220 me=k*10 

1230 GOTO 1010 

1240 ’----- % in mol/l------ 


1250 GOSUB 2430 
1260 me=k*10/mm 


1270 GOTO 1010 
1280 *'----- mol/l in % ------ 
1290 GOSUB 2430 


1300 me=k*mm/10 
1310 GOTO 1010 
1320 Titrationen 
1330 CLS:MODE 2 
GOSUB 2370 
LOCATE#2,5,2:PRINT#2, 


EEE 


"Titratio 


1360 LOCATE#2,4,3:PRINT#2, 


1370 PRINT#2,"Equivalent (Wertigkei 
t) des Titers :":INPUT#2,et 

1380 PRINT#2,"Konzentration in mol/ 
1 € Sollte diese in einer anderen 
Ein-heit bekannt sein, bitte nur di 
e >ENTER<-Taste druecken ) 


1390 INPUT#2, 
HEN 
8) 
1400 kt=VAL(kKt$) 

1410 PRINT#2,"Benoetigtes Titervolu 
men in ml :":INPUT#2,vt 

1420 PRINT#2,"Equivalent (Wertigkei 
£t) der Vorlage :":INPUT#2,ev 

1430 PRINT#2,"Summenformel des Stof 
fes in der Vorlage :":INPUT#2,f$ 
1440 PRINT#2,"Volumen der Vorlage i 
n ml :":INPUT#2,vlsg 

1450 k=kt*vt*#et/(ev*vlsg) 

1460 PRINT#2:PRINT#2,"Die ";f$; 
esung war ";k;"molar." 

1470 LOCATE 25,25:PRINT"weiter 
gendeine Taste druecken" 


‚kt$:IF kKt$=""T 
help=1:G6G0SUB 750:kt=me:GOTO 141 
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1480 a$=INKEY$:IF a$=""THEN 1480 
1490 GOTO 180 

1500 ’==== Loeslichkeiten = 
1510 CLS:MODE 2 

1520 LOCATE 5,2:PRINT"Loeslichkeite 
n" 

1530 LOCATE 4,3:PRINT"============= 
1540 LOCATE 3,5:PRINT"Umrechnung - 
Loeslichkeit in Loeslichkeitsproduk 
t a 

1550 LOCATE 3,7:PRINT"Umrechnung - 
Loeslichkeitspradukt in Loeslichkei 
t Te 
1560° LOCATE 3,10:PRINT"Zurueck ins 
Hauptmenue SEN 


N 
N 
N 


R : zu 
1570 LOCATE 3,13:PRINT"Ihre Wahl 


gu 


1580 ä$- -INKEY$: IF a$=""THEN 1580 
1590 a=VAL(a$) :CLS:ON a GOTO 1610,1 
730,180 

1600 ’Loeslichkeit in Loeslichkeits 
produkt 

1610 GOSUB 2370 

1620 PRINT#2,"” Umrechnung von Loesl 
ichkeit in Loeslichkeitsprodukt” 
Ve PRINTER: 
1640 PRINIY2: PRINT#2, "Fo 
lzes :INPUT#2,f$ 

1650 PRINT#2,"Loeslichkeit in g/l 
":INPUTf2,K 

1660 GOSUB 2430 

1670 me=-k/mm 

1680 PRINT#2:PRINT#2,"Das Loeslichk 
eitsprodukt von ";f$;" betraegt ";m 
e;"mol/1."” 

1690 LOCATE 25,25:PRINT"weiter : ir 
gendeine Taste druecken" 

1700 a$=-INKEY$:IF a$=-""THEN 1700 
1710 GOTO 1510 

1720 "Loeslichkeitsprodukt in Loesl 
ichkeit 

1730 GOSUB 2370 

1740 PRINT#2," Umrechnung von Loesl 
ichkeitsprodukt in Loeslichkeit"” 
1750 PRINTA2, 


1760 PRINT#2:PRINT#2, 
lzes :":INPUT#2,T7$ 
1770 PRINT#2,"Loeslichkeitsprodukt 
:":INPUTZ#2,k 

1780 GOSUB 2430 

1790 me=k*mm 

1800 PRINT#2:PRINT#2,"Die Loeslichk 
eit von ";f$;" betraegt ";me;"g/1." 
1810 LOCATE 25,25:PRINT"weiter : ir 
gendeine Taste druecken" 


"Formel des Sa 


1820 a$=INKEY$:IF a$=""THEN 1820 
1830 GOTO 1510 
1840 ’===== pH- 
1850 CLS:MODE 2 
1860 LOCATE 5,5:PRINT"pH und pks/pk 
b-Werte" 

1870 EDEATE 4,6:PRINT"=============- 
1880 LOCATE 3,8:PRINT"Berechnung vo 
n pH- und pks/pkb-Werten aus der Ko 
nzentration . . . :1" 

1890 LOCATE 3,10:PRINT"Berechnung d 
er Konzentration aus pH- und pks/pk 
b-Werten . . 3 

1900 LOCATE 3, 12: PRINT"Zurveck ins 
Hauptmenue z 


und pks/pkb-Werte 


Ba .a" 
1910 LOCATE 3, 15:PRINT"Ihre Wahl 
ne a ee 
1920 a=VAL[INKEY$) :ON a GOTO 1940,1 
940,180 
1930 GOTO 1920 
1940 CLS:MODE 2:G0SUB 2370 
1950 PRINT#2,” pH- und pks/pkb-Wert 


1960 PRINT#2,"” 


1970 PRINT#2,"Wird eine saure oder 
eine alkalische Loesung eingesetzt 


1980 PRINT#2," ( 
1990 a$=INKEY$ 

2000 IF a$="s"OR a$= 

Saeure"”:a$(2)="pks":GOTO 2030 

2010 IF a$="b"OR a$="B"THEN a$( 1)=" 
Base ":3a$(2)="pkb":GOTO 2030 

2020 GOTO 1990 

2030 PRINT#2,"Geben Sie bitte die F 

ormel der ";a$(1);"” an :":INPUT#2,f 

$ 

2040 DON a GOTO 2050, 2290 

2050 PRINT#2,"Geben Sie bitte die K 
onzentration der ";a$(1);" in mol/l 

2060 PRINT#2,"an (Wenn diese in ein 

er anderen Einheit angegeben ist, 

2070 PRINT#2,"bitte nur die >ENTER< 

-Taste druecken.) :":INPUT#2,k$ 

2080 IF k$=""THEN help=1:G0SUB 750: 
k=me:help=0:GOTO 2130 

2090 kK=VAL(K$) 

2100 PRINT#2,"Soll der pH- oder ";a 

$(2) ;"-Wert berechnet werden ?" 

2110 INPUT#2,b$:IF b$="pH"THEN 2130 

2120 IF b$=a$( 2) THEN 2210 ELSE 2110 

2130 PRINT#2,"Geben Sie bitte den * 
;a$(l2);"-Wert an :":INPUT#2,pk 

2140 ph={ pk-LOGI10(K))/2 

2150 IF a$="b"OR a$="B"THEN ph=14-p 


s/b ) ?"” 


"S"THEN a$l1)=" 
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2160 PRINT#2,"Der pH-Wert dieser Lo 

esung betraegt ";ph;"." 

2170 LOCATE 35,25:PRINT"weiter : ir 

gendeine Taste druecken" 

2180 a$=INKEY$:IF a$=""THEN 2180 

2190 GOTO 1850 

2200 ’----pK-Werte----- 

2210 PRINT#2,"Geben Sie bitte den p 

H-Wert an :":INPUT#2,ph 

2220 pk=L.0G10(k) +2*ph 

2230 IF a$="b"OR a$="B"THEN pk=14-p 

k 

2240 PRINT#2,"Der ";a$(2);"-Wert be 

traegt ";pk;”."” 

2250 LOCATE 35,25:PRINT"weiter : ir 

gendeine Taste druecken" 

2260 a$-=-INKEY$:IF a$=""THEN 2260 

2270 GOTO 1850 

2280 ’----Konzentrationen------ 

2290 PRINT#2,"Geben Sie bitte den p 

H-Wert an :":INPUT#2,ph 

2300 PRINT#2,"Geben Sie bitte den " 
;a$(2);"-Wert an :":INPUT#2,pk 

2310 IF a$="b"OR a$="B"THEN ph=14-p 

h 

2320 k=10*(pk-2*ph) 

2330 PRINT#2,"Die Konzentration der 
";f$;”" betraegt ";k;"mol/l." 

2340 LOCATE 35,25:PRINT"weiter : ir 

gendeine Taste druecken" 

2350 a$=INKEY$:IF a$=""THEN 2350 

2360 GOTD 1850 

2370 WINDOW#1,1,20,1,25 

2380 PRINT#1,"Vor der Eingabe 
ndexen bitte die #-Taste ohne 
IFT<druecken." 

2390 PRINT#1,"Dabei ist unbedingta 
uf die Gross- undKleinschreibung 
derElementsymbole zuachten."” 

2395 PRINT#1,"Bei der Eingabe 

omplexen ist aufKlammern zu 
ich-ten.” 

2400 WINDOW#2,23,80,1,25 

2410 RETURN 

2420 ’'=====Molmassenbestimmung == 
2430 F=LEN(f$) :mm=0:hf$=f$ 

2440 e$-LEFT$ÜhFf$,1):h$=MID$Chr$,2, 
1):f=f-1:IF f<si THEN 2460 

2450 IF ASC(h$)>96 AND ASC(h$)<123 
THEN e$=e$+h$:f=f-1 

2460 GOSUB 2550 

2470 hf$=RIGHT$Chf$, f) 

2480 IF LEFT$CHFf$,1)="""THEN i=VAL( 
MID$Chf$,2,1)) ELSE 2500 

2490 am=am*i:f=f-2:hf$=RIGHT$EhF$,f 
) 

2500 mm-mm+am:IF f=0 THEN RETURN 

2510 IF ASC(LEFT$CHF$,1))>64 AND AS 

GELEFTS$CHFF,1))<S91I GOTO 2440 


vonlI 
>5H 


vonK 
verz 


2520 CLS:LOCATE 5, 10:PRINT"Sie habe 
n ihre chemische Formel falsch eing 
egeben." 

2530 FOR a=1 TO 1000:NEXT:GOTO 180 
2540 °-----Atommassen------- 


2550 RESTORE:FOR e=1 TO 73 

2560 READ ep$,am:IF e$=ep$ THEN RET 
URN 

2570 NEXT 

2550 


DATA"H",1.008,"He",4.003,"Li", 
6.94,"Be",9.013,"8",10.82,"C", 12.01 
1 


2590 DATA"N", 14.008,"0",16,"F",19," 

Ne",20.183,"Na”,22.991,"Mg",24.32 

2600 DATA"A1L”",26.97,"5i",28.06,"P", 

30.98,"5",32.066,"C1",35.457,"Ar",3 

9.994 

2610 DATA"K",39.096,"Ca”,40.08,"Sc" 

‚44.10,771”7,47,90,"V",50.95;"C0r",52 

.01 

2620 DATA"Mn",54.95,"Fe",55.85, "Co" 

‚58.95,"Ni",58.71,"Cu”,63.54,"Zn",6 

5.38 

2630 DATA"Ga",69.72,"Ge”",72.60, "As" 

‚74.91,"Se",78.96,"Br",79.916,"Kr", 

83.7 

2640 DATA"RbB",85.48,"Sr",87.63,"Y", 

88.92,"Zr",91.22,"Nb",92.91,"Mo",95 

„95 

2650 DATA"Tc”,99,"Ru",101.1,"Ah", 10 

2.91,"Pd",106.4,"Ag", 107.88, "Cd", 11 

2.41 

2660 DATA"In”,114.82,"Sn",118.7,"S5b 

"121,76, °18°,127.61.,71”, 126.92, "X0 

131,3 

2670 DATA"CS",132.91,"Ba”,137.36,"L 

a”,138.92,"Hf”,178.5,"Ta”,180.92,"W 

"183.86 

2680 DATA"Re", 186.27,"0s",190.2,"Ir 

".193.2,"Pt”, 195.09, "Au" ,197, "Hg", 2 

00.619 

2690 DATA"T1",204.39,"Pb",207.21,"B 

1”,209,"P0r,210, "AL" 211, "Rn" 222," 

U” ,238.07 

2700 PRINT#2,"Geben Sie bitte die A 

tommasse des Elementes mit dem" 
".e$:" an 

", am: RETURN 


2710 PRINT#2,"Zeichen 
2720 INPUTF2,” 
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TIPS & TRICKS 


STRUKTUR: HILFE ZUR 
STRUKTURIERTEN 
PROGRAMMIERUNG 


Zu den ersten Erfahrungen als Hobbyprogrammierer 
gehört, daß man nur wenige Tage braucht, ein Pro- 
gramm in seinen Grundzügen niederzuschreiben, 
aber Wochen, bis man die letzten Fehler gefunden 
hat. Das Schlimmste sind dabei nicht einmal die 
„Syntax Errors‘‘ — auf sie weist einen der Basic- 
Interpreter meist ausdrücklich hin —, sondern die 
logischen Fehler. Bei diesen hat man nur eine 
Chance, wenn man den Programmablauf noch 
nachvollziehen kann. Das Zauberwort heißt „Struk- 
turiertes Programmieren“. 

Vielleicht kennen einige von Ihnen die Art, wie ein 
Pascal-Listing mit eingerückten Zeilen ausgedruckt 
wird. Diese Form macht es zum Beispiel leicht, ver- 
schachtelte Schleifen zu analysieren. 

Aber wer einmal auf dem falschen Weg war, der 
wird seine ersten Listings nur noch mit einem Kopf- 
schütteln betrachten. Eine nachträgliche Aufberei- 
tung ist sehr umständlich und zeitraubend. Wozu 
auch, das Listing läuft ja. Hier setzt das Programm 
Strukter von Schneider aktiv-Autor Thomas Nau- 
mann an. Es läuft auf allen CPC-Modellen (mit und 
ohne Diskettenlaufwerk). Seine Stärken jedoch zeigt 
das Programm besonders dann, wenn man über ein 
Laufwerk und einen Drucker (NLQ 401 o.ä.) verfügt. 
Mit Strukter kann man sich auf dem Bildschirm oder 
auf seinem Drucker ein übersichtliches Programm- 
listing ausdrucken lassen. Strukter hat dabei folgen- 
de Leistungsmerkmale (bezogen auf die Benutzung 
eines Druckers): 

— Jeder Befehl steht in einer Zeile. — Schleifen und 
IF-Statements werden durch Leerzeilen vom übrigen 
Programmtext abgegrenzt. 

— Das Innere von Schleifen und IF-THEN-ELSE- 
Statements wird eingerückt. 

— Statements der Form NEXT j,i werden in 

NEXT j:NEXT i aufgelöst. 

— Weggelassene GOTOs (z.B. bei IF <Bedingung> 
THEN 90) werden eingefügt (aber: IF-Statements 
ohne ein THEN, z.B. “IF k=k GOTO 90“, werden 
nicht verstanden). 

— GOTO, GOSUB und ON werden fettgedruckt. 

— RETURN wird fettgedruckt, unterstrichen und 
um eine Zeile abgesetzt. 

— REM-Statements werden in Sternchen eingerahmt. 
— Jede Seite erhält eine Kopfzeile und eine Seiten- 
nummer. 

— Unten rechts auf einer Seite wird vermerkt, welche 
Zeilen auf ihr zu finden sind. 

— Neben dem Ausdruck von ganzen Programmen 
können auch Teile (von <Anfangszeile> bis <End- 
zeile>) gedruckt werden. 

— Ein umfangreiches Druckmenü erlaubt die Anpas- 
sung des Ausdrucks an individuelle Vorlieben. 

— Die Steuerzeichen des Programms beziehen sich 
auf den NLQ 401. Bei der Verwendung anderer 
Drucker müssen die Zeilen 50 ff entsprechend ange- 
paßt werden. 


Mit Strukter können Sie eine in Ihrem Programm vor- 
handene Struktur deutlich machen (daher der Name). 
Eines kann Strukter aber nicht: ein unstrukturiertes 
Programm strukturieren. Unabhängig davon, ob Sie 
Strukter benutzen wollen oder nicht, empfiehlt es 
sich, folgende Regeln bei der Basic-Programmierung 
zu beachten, damit Sie Ihr Programm auch nach 
sechs Monaten noch lesen können: 

— Keine absoluten Sprünge (d.h.: GOTO-Befehle) 
aus FOR-NEXT- und WHILE-WEND-Schleifen und 
Unterprogrammen. Nicht nur, daß die Übersichtlich- 
keit darunter leidet — irgendwann ist auch mal der 
Stack mit den Rücksprungadressen voll und dann 
kommt es zu zunächst völlig unverständlichen 
„Memory full“-Meldungen. 

— In ein Unterprogramm sollte man nur über eine ein- 
zige Zeile springen (der man möglichst, zumindest 
während der Programmentwicklung, eine REM-Zeile 
voranstellen sollte). 

— In einem Unterprogramm sollte nur ein einziges 
RETURN, und zwar am Schluß des Unterprogram- 
mes, vorkommen. 

— Der Tod aller Übersichtlichkeit sind Befehle wie 
“FOR i=1 to 2:IF <Bedingung> THEN <Befeh> 
ELSE NEXT“ oder “IF <Bedingung> THEN 
RETURN“. Ein NEXT bzw. WEND sollte auf der- 
selben strukturellen Ebene wie das dazugehörige 
FOR bzw. WHILE stehen. Entsprechendes gilt für 
RETURN und die dazugehörige Einsprungzeile. Hier 
hilft Ihnen Strukter durch das Einrücken besonders. 
— Zu jedem IF gehört ein THEN. Der Basic-Interpre- 
ter versteht zwar auch z.B. “IF a=0 GOTO 90“, aber 
das Programm wird dadurch schlechter lesbar. 

Bevor Sie ein Programm durch Strukter verarbeiten 
können, müssen Sie es als ASCII-Datei abspeichern. 
Das geschieht, indem Sie das Programm, das Sie aus- 
drucken lassen wollen, laden (LOAD “<Programm- 
name>““) und dann mit SAVE “<Programmname>** 
‚a abspeichern. 

Die Bedienung des Programms erklärt sich weitge- 
hend von selbst, so daß hier nur Hinweise zur 
Bedeutung einiger Optionen gegeben werden 
müssen. 


A. Druckmenü 

Durch das Drücken des angegebenen Buchstabens 
schaltet man zwischen zwei Möglichkeiten hin und 
her. Beispiel: Durch <A> schaltet man zwischen 
dem ASCII-Zeichensatz und dem deutschen Zeichen- 
satz (,‚Schneider‘‘), da das Programm für den 
Schneiderdrucker NLQ 401 ausgelegt ist) um. 

Die Schriftdichte gibt an, wieviele Zeichen auf ei- 
ner vollen Druckzeile gedruckt werden (80 oder 132). 
Den standardmäßigen Fettdruck von GOTO, 
GOSUB, ON und RETURN kann man mit <H> 


Bitte lesen Sie weiter auf Seite 138 
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LISTING 


!RRERÄREREHERHHRHHSTE NEE EEE TEN 


1 

2 ER STRUKTER * 
3 # VON ® 
Eu THOMAS NAUMANN * 
5 # FUER ® 
6 °'* SCHNEIDER AKTIV * 
VER CPC 464/664/6128 je* 
8 


VRRSRESURUCHEHUTUNUTENEEEEEITE 
10 ’Version 
20 ’Init 
30 | TAPE:OPENOUT"!d":MEMORY HIMEM-1 
:CLOSEOUT:I DISC:MODE 2:t$=CHRA$L( 12) + 
EHR$L3T1) +CHR$L 18) +CHR$C 1) +CHR$L 24) + 
"* STRUKTER Version 3.2 - 23.4.87 
= "4+CHA$C2A) :DIM uel$( 1) :uvel$(0)=CH 
RE 243) 
AO quit%=-0:3%=13:f%=-0::sf%=-0:ifF1%X=0 
:gf%=0:br%=80:er%=2:j%=0:1%=0:vorsc 
hub$=CHR$L 12) :drusteuß="eavhzbf"+CH 
R$C 13) +"g":default$="BEISPIEL":bt$= 
CHR$C 31) +CHRA$( 20) +CHR$( 25) +CHR$( 24) 
+" Bitte Taste druecken! "+CHR$( 24) 
50 uel$( 1) <SCHR$L27) +CHA$( 61) +uel$l DO 
) +CHR$( 0) :entw$=CHRA$( 27) +CHA$( 120) + 
CHR$( 0) :n19$=CHA$L 27) +CHR$C 120) +CHA 
$01):’29+61: Umschalten auf chr$f 12 
8) -chr$( 255) 
60 compr$=CHR$L 15) : compraus$=CHR$L 1 
8) :doppel$=CHR$( 27) +CHR$( 71) :doppel 
aus$=CHA$L27) +CHRA$L 72) :asci$=CHR$( 2 
7) +CHR$(55) :asciaus$=CHA$( 27) +CHR$( 
54) 
70 normal$=CHR$L 27) +CHR$( 50) :eng$=C 
HR$L 27) +CHR$( 48) :unterstr$=CHRA$( 27) 
+CHR$LAS5) +CHR$( 1) :unterstraus$=CHR$ 
( 27) +CHR$L AS) +CHR$C2) : zwoe$=CHR$( 27 
) +CHR$L 67) +CHR$( DO) +CHR$( 12) :elf$=CH 
R$C 27) +CHR$( 67) +CHR$LO) +CHR$C 11) 
80 t%=-1:21%=0:ze%=-1:dt%=0:gf%=-1: 
zma%=65:zwoelf%=-1:’zma%=Zeilenanza 
hl pro 12"-Seite 
90 WINDOW#1,1,15,25,25:WINDOW#2, 16, 
30,?5,?5:WINDOW#3,31,45,25,25:WINDO 
w44,46,60,25,25:WINDOW#5,61,75,25,2 
5 
190 "Hauptmenue 
200 PRINT t$ 
210 LOCATE 23,5:PRINT"##* AUSGA 
BE ###*":LOCATE 5,10:PRINT"<B>: Bi 
idschirm":LOCATE 5,12:PRINT"<D>: Dr 
ucker":LOCATE 5,14:PRINT"”<C>: Catal 
og":LOCATE 5, 16:PRINT"<Q>: Programm 
abbruch";bt$:GOSUB 5000 
220 x%=-0:IF e$="q” THEN MODE 2:END 
ELSE IF e$="c"THEN PRINT t$:CAT:PRI 
NT"<TASTE> druecken":GOSUB 5000:60T 
0 200 ELSE IF e$="d"THEN GOSUB 3000 
: "zum Druckermenue 
230 PRINT t$ 
240 LOCATE 5,3:PRINT"Dateiname (<EN 


3.2 vom 23. 4. 87 


TER> fuer ";CHR$( 34) ;default$; CHAF 
34) ;"):":LOCATE 5,5:INPUT"",name$:n 
ame$=UPPER$( name$) :IF name$=""THEN 
name$=default$ 
250 LOCATE 5,5:PRINT CHR$( 18) ;name$ 
260 PRINT bt$:LOCATE 5,7:PRINT"”Kopf 
zeile-Dateiname ( j/n)?";:60SUB 5000 
:IF e$="5j"OR e$=CHR$( 13) THEN name1$ 
=name$:PRINT" ja":GOTO 280 ELSE PR 
INT" nein" 
270 LOCATE 5,9:PRINT"Listingkopfzei 
le:":LOCATE S,11:LINE INPUT”", name 
$ 
280 LOCATE 5,13:PRINT"Einruecken (< 
ENTER> fuer ";:PRINT USING”# Stelle 
n):";er%; :PRINT CHRA$( 18) :G0OSUB 5000 
:IF e$<>CHA$( 13) THEN er%=VAL(e$) 
290 LOCATE 41,13:PRINT CHR$( 18) ;er% 
300 LOCATE 5, 15:INPUT"Anfangszeile 
(<ENTER> fuer 1): ",anfz!:IF anfz!= 
0 THEN LOCATE 36, 15:PRINT"”1";CHR$( 1 
8) 
310 LOCATE 5,17:INPUT"Endzeile (<EN 
TER> fuer letzte): "‚,endz!:IF endz! 
=0 THEN LOCATE 37,17:PRINT"letzte"; 
CHR$( 18) 
320 LOCATE 5,24:PRINT"Weiter mit <E 
NTER> Abbruch mit <Q>":GOSUB 
5000:IF e$="q"THEN CLS:G0TO 200 
330 PRINT t$:PRINT:s%=1:GOSUB 4400: 
WINDOW#0,1,80,5,25:IF x%=8 THEN LOC 
ATE 20,20:PRINT"<Q> fuer Abbruch" 
340 name$="!"+name$:0OPENIN name$ 
490 Anfang Hauptpr. 
500 IF EOF THEN 1000 
510 GOSUB 4600:IF quit% THEN 1000 E 
LSE LINE INPUT4#9,ez$:zn!=VAL(ez$):I 
F zn!<anfz! THEN 500 ELSE IF endz!< 
>08 THEN IF zn!>endz! THEN GOTDO 1000 
520 PRINT#Ax%, USING" AHHHHRHHHHHH" ; zu! 
;:IF NOT id%THEN id%=-1:iz!=zn! 
530 GOSUB 2400:p$=ez$:GOSUB 2000:ez 
$=p$ 
540 ’THEN und ELSE allein in einer 
Zeile 
550 IF LEFT$(ez$,4)="THEN"OR LEFT$( 
ez$,4)="EILSE"THEN zg%=5:GOSUB 3600: 
GOTO 800 
560 ’Zeile wegen 
570 zg%=0 
580 zg%=INSTA( zg%+1,ez$,":"):IF zg% 
=0 THEN zg%=LEN(ez$) ELSE p$=ez$:qg$ 
=":":G05UB 2100:IF NOT eI%THEN GOTO 
580 
590 ’Zeile wegen REM oder ’ 
ppelpunkt vorweg teilen? 
600 IF zg%<>LEN(ezZ$) THEN 660 
610 zg%=1 
62D i%=INSTR( zg%+1,ez$,"’") : j%=INST 
R(zg%+1,ez$,"REM") :IF i%=0 AND j%=0 


teilen? 


ohne Do 
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THEN zg%=LEN(ez$) :G0TO 660 ELSE zg 
%=MIN(i%, j%) :IF zg%=0 THEN zg%=MAX( 
i%, j%) 

630 p$=ez$:IF zg%=i%THEN q$=" "ELSE 
q$="REM" 

640 GDSUB 2100:IF NOT e1% THEN 620 

650 ’Zeile wegen IF, THEN o. ELSE t 

eilen? 

660 wort$="ELSE":GOSUB 3400:wort$=" 

THEN":GOSUB 3400:wort$="IF":GOSUB 3 

400:G05SUB A4600:IF quit% THEN 1000 E 

LSE GOSUB 3600: ’mz$ aus ez$ bilden 

790 ’Einrueckungen, Leerzeilen 

800 IF LEFT$(mz$,2)="IF"THEN F%=f%+ 

er%:if1l%=-1:G0OSUB 3500: 3%=a%+er%:GO 

TO 950 

810 IF mz$<>""THEN GOSUB 4000:IF za 

%THEN mz$="GOTO "+mz$ 

820 IF LEFT$Lmz$,4)="THEN"THEN a%=a 

%-er%:GOSUB 3500:3%=a%+ter%:G0TO 950 

830 IF LEFT$(mz$,4A4)="ELSE"THEN a%=a 

%-er%:GOSUB 3500:3%=a%+ter%:GOTO 950 

840 IF LEFT$CmzZ$,3)="FOR"OR LEFT$Cm 
2$,5)="WHILE"THEN if1l%=-1:G0SUB 350 

D: a%= -3%+er%:GOTO 950 

850 IF LEFT$(mz$,4)="NEXT” 

UB 49700:tf%=-1: a%= a%-er% 
860 IF LEFT$(mz$,4)="WEND"THEN tf%= 
-1:a%=a%-er% 

870 IF LEFT$(mz$,6) 
=-1 

880 IF LEFT$Cmz$, 1)="""THEN rf%=-1: 
mz$=RIGHT$Lmz$,LEN(mz$) -1) :p$=mz$:G 
05U8 2000:mz$=p$:GOSUB 4200:G6G05UB 4 
500:rf%=0:G0OTO 950 

890 IF LEFT$(mz$,3)="REM"THEN rf%= 
1:mz$=RIGHT$Lmz$,LEN(mz$) -3) :p$= en 

:GDSUB 2000:mz$=p$:GOSUB 4200:G05UB 

4500:rf%=0:GOTO 950 
900 ’Wenn Drucker: Hervorhebung von 

Spruengen und RETURN 
910 IF x%<>B OR NOT gf%THEN GOTO 94 
18) 

920 IF LEFT$(mz$,4)="GOTO"OR LEFT$( 
mz$,5) ="GOSUB"OR LEFT$(LmzZ$,2)="ON”T 
HEN mz$= doppeissmz$rdopnelausg 

930 IF LEFT$(mz$,6) ="RETURN"THEN mz 
$=unterstr$+doppel$+mz$+unterstraus 
$+doppelaus$ 

940 GOSUB 3500: zum Druck 

950 GOSUB A4500:IF ez$<>""THEN 550: 

Neue Seite -> neue Zeile lesen, wen 
n Restzeile ez$ leer 
960 'Leerzeile, wenn in logischer Z 
eile IF vorkam 
970 IF f%>O AND NOT sf%THEN sf%=-1: 
GOSUB 4300:6G05UB 4500 
980 a%=-a%-fF%:7%=0 
990 GOTO 500 
1000 CLOSEIN 


THEN 605 


="RETURN"THEN tf 


RD IF x%=8 THEN PRINT#x%,CHR$( 12) 
:LOCATE 5,7 ELSE PRINT 

1020 PRINT"Programm abbrechen <j/n> 
":G0SUB 5000:IF e$<>"j"THEN RUN ELS 

E MODE 2:END 

1990 ’Fuehrende Blanks und ":" weg 

* E+ A: p$ 

2000 IF LEFT$(p$,1)=" "OR LEFT$Cp$, 


1)=":"THEN p$=RIGHT$CP$,LEN(P$) -1): 
GOTO 2000 


2010 RETURN 

2090 ’BASIC-Wort in Anf 
REM-Z.? 

2100 IF LEFT$CP$,1)="""OR LEFT$CP$, 
3)="REM"THEN e1%=0 ELSE GOSUB 2200 
2110 RETURN 

2190 ’BASIC-WORT in Anf.-str.? 

2200 3j%=0:FOR i%=1 TO zgX% 

2210 IF MID$(p$,i%, 1) =CHR$( 34) THEN 
J%=j%+ 1 

2220 NEXT i% 

2230 IF 3j%MOD 2=1 THEN e1%=D ELSE e 
1%=— 

2240 RETURN 

2290 ’BASIC-Wort Teil einer Variabl 
en? 

2300 IF zg%=1 THEN 2320 
2310 hf%=ASC(MID$LP$, zg%-1 
B 2500:IF e2%=D0 THEN 2340 
2320 IF zg%>LEN(p$)-LEN(g$) THEN 234 
D 

2330 hf%=ASC(MID$(p$,zg%+LEN(qg$), 1) 
) :GOSUB 2500 

2340 RETURN 

2390 ’Wo ist Blank nach Z 
2400 hi$="1" 

2410 WHILE hi$<>" ":hi$=LEFT$(ez$, 1 
) :ez$=RIGHT$( ez$,LEN(ez$)-1) :WEND 
2420 RETURN 

2490 ’E: hf% A: e2 # e2=-1 -> hf% i 
st Nr. eines alphanum. Zeichens 
2500 IFChf%>=48 AND hf%<=57)OR hf%= 
46 ORChf%>=65 AND hf%<=90) OAChf%>=9 
7 AND hf%<=122) THEN e2%=0 ELSE e2%= 
-1 

2510 RETURN 

2990 ’Druckoptionen-UP 

3000 x%=8B 

3010 PRINT t$:LOCATE 21,3:PRINT"*** 
DRUCKERMENDUE *#*" 

3020 LOCATE 5,6:PRINT"<E>: 

druck/NLQ"” 

3030 LOCATE 5,7:PRINT"<A>: 


.-str. oder 


‚1)) :G0SsU 


.-Nr.? 


Entwurfs 


Zeichens 


atz: ASCII/Schneider" 

3040 LOCATE 5,8:PRINT"<V>: Schriftd 
ichte: dicht/normal" 

3050 LOCATE 5,9:PRINT"<H>: Hervorhe 
bung von Spruengen usw." 

3060 LOCATE 5, 10:PRINT"<Z>: Zeilena 


bstand normal/eng"” 


136 


LISTING 


3070 LOGATE 5,11:PRINT"<F>: 
rhoehe 11 oder 12 Zoll" 
3080 1LOCATE 5,24:FRINT"<ENTER>: Wei 
ter <B>: Bilde schirm statt Drucker 
<Q>: Abbruch";bt$ 

3090 LOCATE A45,6:IF t%THEN PRINT"(E 
ntwurfsdruck) "ELSE PRINT"(NLQ) 

3100 LOCATE 45,7:IF ze%THEN PRINT"( 
ASCII) "ELSE PRINT"(Schneider)" 
3110 LOCATE 45,8:IF dt%THEN PRINT"( 
dicht) "ELSE PRINT”(normal)” 

3120 LOCATE 45,9:IF gf%THEN PRINT"{ 
an) "ELSE PRINT"”(aus)"” 

3130 LOCATE 45, 10:IF zIXTHEN PRINT" 
(normal) "ELSE PRINT"”(eng) = 

3140 LDOCATE 45,11:IF zwoelf%THEN PR 
INT"( I12)"ELSE PRINT"”( 11)" 

3150 GOSUB 5000:0N INSTR( drusteu$,e 

$)GOTO 3160, 3170,3180, 3190, 3200, 322 

0,3230, 3240,200:G0T10 3150 

3160 t%=NOT t%:GOTO 3090 

3170 ze%=NOT ze%:GOTO 3090 

3180 dt%=NOT dt%:G0OTO 3090 

3190 gf%=NOT gf%:GOTO 3090 

3200 IF zI%THEN z1%=0 ELSE z1%=-1 
3210 GOTO 3090 

3220 x%=0:GOTO 3300 

3230 zwoelf%=NOT zwoelf%:GOTO 3090 
3240 GOSUB 4030 

3250 LOCATE 5,13:PRINT CHR$( 20) 
ilenbreite (<ENTER>=";:PRINT USING" 

#AH";br%; :PRINT"): ";:INPUT"",i%:IF 
i%<>0 THEN br%=MAX( MIN(i%, 132) ,30) 
3260 LOCATE 32,13:PRINT br%;CHR$( 18 
) 

3270 LOCATE 5,15:PRINT"Alles o.k. u 
nd Drucker bereit (<j/n>)?";CHR$( 18 
);bt$; :G0OSUB 5000:IF e$<>"j"THEN 30 
00 

3280 IF INP(&F500)=90 THEN LOCATE 5 
‚15:PRINT"Bitte Drucker einschalten 
und <ENTER> druecken (<Q>: Abbruch 
)";CHR$(7) ;CHRA$( 18) :GOSUB 5000:IF & 

$="q" THEN 200 ELSE GOTO 3280 

3290 PRINT#Ax%,st$; 

3300 RETURN 

3390 ’A: zg% * Anfang erstes echtes 
BASIC-Wort (wort$) 

3400 bzg%=zg%: zg%=1 

3410 zg%=INSTRA( zg%+1,ez$,wort$) 

3420 IF zg%>=bzg%0OR zg%=D THEN zg%= 

bzg%:GOTO 3440 ELSE p$=ez$:q$=-wort$ 
:GOSUB 2100 

3430 GOSUB 2300:IF NOT(e1I%AND e2%)T 

HEN 3410 

3440 RETURN 

3490 ’Druck 

3500 IF if1%AND NOT sf%THEN sf%=-1: 

if1%=-0:G0O5UB 4300 


Formula 


; "Ze 


3510 ’LZ:Leerzeile. ifl=-1:L7 vor D 
ruck?. sf=-1:Lletzte Zeile LZ. tf=-1 
:LZ nach Druck? 

3520 GOSURB 3700 

3530 IF tf%AND NOT sf%THEN sf%=-1:6G 
OSUB 4300 

3540 if1%-0:tf%=0 

3550 RETURN 

3590 ’Fuellen von mz$ aus ez$ 

3600 mz$=LEFT$(lez$, zg%-1) :ez$=AIGHT 


$lez$,LEN(ez$) -zg%+1) :p$=-ez$:GOSUB 
2000: ez$=p$:p$=m2$:GOSUB 2000 :m2$=p 
$ 

3610 IF LEN(ez$)<=1 THEN mz$=mz$+tez 
$:ez$="" 

3620 RETURN 


3690 ’UP zu Druck: Teilen von lange 
n mz$ 

3700 IF LEN(mz$)=0O THEN 3860 

3710 IF rf%THEN rz%=4:remli$="* ":r 
emre$=" *"ELSE rz%=0:remli$="":remr 
e$=" " 

3720 IF LEN(mz$) >br%-a%-1-rz%THEN 3 
750 


3730 PRINT#x%,TAB( a%) ;remli$;mz$;re 

mre$; :IF LEN(mz$) =br%-a%-1-rzX%THEN 

GOSUB 4310 ELSE GOSUB A300 

3740 GOTO 3850 

3750 vorspann$=LEFT$Lmz$,br%-a%-1-r 

z%) :mz$=RIGHT$(mzZ$,LEN(mz$) -br%ta%+ 
1+1r2%) 

3760 PRINTAx%,TAB( a%) ;remli$;vorspa 

nn$; remre$; :GOSUB 4310 

3770 i%=LEN(mz$) 

3780 WHILE i%>br%-a%-6-rz%\2 

3790 PRINT#x%,TAB(a%) ;remli$; :PRINT 

#x%, TAB( a%+2) ;uel$( x%\8) ; :PRINTAx%, 

TAB( a%+5) ;LEFT$(mz$, br%-a%-6-rz%\2) 
;:IF rf%THEN PRINT#x%, TAB(br%-3+x%\ 

8) ;remre$; 

3800 GOSUB 4310 

3810 mz$=RIGHT$(mz$,LEN(mz$) -br%+a% 
+6+r2%\2) :i%=LEN( mz$) 

3820 WEND 

3830 IF i%=0 THEN 3850 ELSE PRINT#Ax 

%, TAB( 3%) ;remli$; :PRINT#x%, TAB( a%+2 

) ;uel$( x%\8) ; :PRINT#x%, TAB( a%+5) ;mz 

$;:IF rf%THEN PRINT#x%, TABCbr%-3+x% 
\8) ;remre$; 

3840 GOSUB 4300 

3850 sf%=0 

3860 RETURN 

3990 ’UP zu: 1. 
2 

4000 p$=LEFT$(mz$,1) 

4010 IF ASC(p$)>=48 AND ASC(p$) <=57 
THEN za%=-1 ELSE za%=D 

4020 RE.TURN 

4030 st$="" 


Stelle von mz$ Zahl 


A040 IF t%THEN st$=st$+entw$ELSE st 39 
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$-st$rnlg$ 1 MODE 2 

ABSD IF ZI%ATHEN st$=-st$+tnormal$ELSE 20 FOR i=-1 TO 10 
st$=st$iengd 30 LOCATE i,i:PRINT "Jojo" 

AD6D IF ze%THEN st$=st$rtasci$ELSE s 40 NEXT i 

t.$=st$tasciaus$ 50 y-=1 

A070 IF dE:%XTHEN st$=st$+compr$ELSE 60 FOR i=-25 TO 15 STEP -1 
st$=st$rcomprausß$ 70 y=y+1 


A080 IF zwoelf%ATHEN st$=st$+zwoe$:z BO LOCATE y,‚i:PRINT "Jojo" 
m%=zma% ELSF st$°-st$telf$:zm%=-INT(z 90 NEXT i 
a 
na%*11/12) 100 1.OCATE 35, 12:PRINT"Nochmal j/n" 
AD9O IF ZIKTHEN zm%-INT( zm%*3/4) -a$ 
4100 RETURN 110 aß-INKEYS$ 
A190 "UP zu: Aufbereiten und Drucke 120 IF a$=-"" THEN GOTO 100 
n von REM 
is . 130 IF a$="j" THEN GOTO 10 
Be JA-MINBER=aR- 1 ‚LEN! m2$) #2) -PA 140 CLS:LOCATE 30, 12:PRINT"” Endlich 
N #x%, TAB( 2%) ;STRING$( 5%, *");,:605 hab ich meine Auhe":FOR i=1 TO 200 
uUB 4310:505URB 3500:PRINT#Ax%,TABla%) O:NEXT i:CALL &BBIB:END 
; STRING$( 5%, "*") ;:GOSUB 4300:RETURN 
4290 "Zeilenzaehlen, Seitenumbruch 


A3OND PRINT#x% TEST - Seite i 
4310 IF x%-0 THEN 4320 ELSE z%=z%+1 
4320 RETURN KERRIRNRHHHH ÄRMEL 
4390 *"Seitenkopf 10 MODE 2 
A400 IF x%=0 THEN PRINT#x%,name1$El. Do a 
SE FRINT#x%,name1$;”" - Seite";s%:PR re) u a na 
ul ln J 
INT#x%:PRINT#x%,STRING$Cbr%, "*") :PA PRINT "Jojo" 
INT#Ax%:s%=5%+1 40 NEXT i 
AA10 RETURN 
4A90 "Naechste Seite? ee 
4500 IF 2%>zm%THEN PRINT#x%:PRINT#x FOR i=25 TO 15 STEF - 
%, TABlbr%-29) ;"Zeilennr.: ";CHR$( 27 al 
) ;CHN$C71) ;USING"AHRHHH" Sit; : PRINT ern 
Hr% "_ "USING" HHHHHH" ; ' :PRINT u en ia Yon 
z ;LE ;zn!: Hx . ‚ER IN JoJ0 
%, CHR$( 27) ; CHR$( 72) ;vorschub$:GOSUB 70 NEXT ü 
A4A00:3.4%=0:2%=-0 30 DE De un) 
" 30 L.OCATE 35,1% 
A510 RETURN RN FRINT"Nochmal j/n'"ya 
1590 "Quit setzen . un 
4600 IF LOWER$( INKEY$)="qg"THEN quit ae 
%=-1 IF adEm" 
4610 RETURN THEN 


4690 ’NEXT,,,, aufteilen Re Be 

4700 i%=INSTAlmz$,","):IF i%>O THEN jan IF age" 
ez$="NEXT "+MID$LmZ$, i%+1)+tez$:mz$ 
=LEFT$Cmz$,i%-1) 

4730 RETURN 

4990 "CLEAR INPUT und WAITKEY$ 

5000 WHILE INKEY$<>"":WEND:e$="":WH 
ILE e$="":e$=INKEY$:WEND: e$=-LOWER$( 

e$) :RETURN 


GOTO 10 


Fortsetzung von Seite 134 


unterdrücken. Mit Zeilenabstand (eng/normal) wählt 
man zwischen einem Zeilenabstand von 1/8 und 
1/6. Eine Formularhöhe von 11 Zoll sollte man 


einstellen, wenn man Einzelpapier benutzt. Anson- ist sehr praktisch, wenn Sie in der Kopfzeile Datum 
sten ist 12 Zoll die geeignete Formularhöhe. und Versionsnummer Ihres Programmes aufnehmen. 
Hinweise für Kassettenbenutzer: 

B. Sonstige Einstellungen Wenn Sie kein Diskettenlaufwerk besitzen, müssen 
Antwortet man auf “Kopfzeile=Dateiname (j/n)?“ Sie den TAPE- und den DISC-Befehl am Anfang des 
nicht mit <N>, wird als Kopfzeile für die Seiten des Listings weglassen. Außerdem ist für Sie die Option 
Listingausdrucks der Dateiname genommen. Anson- CATALOG wenig interessant; Sie sollten sie daher 
sten kann man eine eigene Titelzeile eingeben. Es nicht anwählen. (JE) 
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DIMENSIONALE 
SCHRIFT 


„Maniac Miner‘‘-Fan scheint Gerald Steffens zu sein. 
Angeregt durch das Titelbild hat er ein kleines Basic- 
programm geschrieben, welches beliebige Zeichen drei- 
dimensional auf dem Bildschirm ausgibt. Das Pro- 


gramm greift auf die Symboltabelle im Schneider-RAM 


zurück und setzt die Zeichen dann Punkt für Punkt zu- 
sammen. Dadurch wurde es möglich, einen Text sofort 
als Grafik umzusetzen. Am sinnvollsten wird das Pro- 
gramm im Modus | angewandt, denn hier passen fünf 
Zeichen nebeneinander. 


Das Programm ist aber zur Weiterverarbeitung gedacht 
und wir raten deshalb, etwas zu experimentieren. Ver- 
suchen Sie einmal, im Modus O die Zeichen diagonal 
anzuordnen oder ändern Sie den Zeichensatz des 
CPCs. Was dabei herauskommt, wird jedes Ihrer Pro- 
gramme mit Ihren Initialen als Titel schmücken. 

Der kleine Spaß ist auf allen CPCs lauffähig, wenn Sie 
folgendes beachten: Besitzen Sie einen CPC 464, so 
geben Sie das Listing ein, wie es abgedruckt ist. Wenn 
Sie jedoch einen CPC 664 oder einen 6128 Ihr Eigen 
nennen, so entfernen Sie aus Zeile 75 das REM-Zei- 
chen (‘ — nur hinter der Zeilennummer) und fügen 
statt dessen in Zeile 70 ein REM hinter die Zeilen- 
nummer ein (also: 70 ‘po=...). 


PRERRRRERRII IN SE SET a at 


E13 


LE 2 222.2. 2.222 202 2027022020222 ee ee een 
2 '* Dreidimensionale Schrift * 
3 ’# von = 
4 '* G.Steffens * 
5 ’# fuer * 
6 ’* Schneider aktiv = 
7 #8 CPC 464/664/6128 * 
g x 


18 DEFINT a-o,q-z:DIM fe(9,9) :SYMBO 
L AFTER 32 
2B MODE 1:BORDER ®:INK B8,8:INK 1,2: 


INK 2,28 

3@ SYMBOL 221,178,85,171,87,175,95, 
191,127 

aa SYMBOL 222,254,253,250,245,234,2 
13, 170,85 

SO ’#=2* Beispiel *#* 


51 text$="3-dim":zeile=4:spalte=1:G 

OSUB 78 

52 text$="titel":zeile=14:spalte=!1: 
GOSUB 78 

53 FOR a=1 TO 4888:NEXT 

54 MODE 8:INK 1,4:INK 2,8 

55 text$="C":zeile=1:spalte=1:G0OSUB 
78 

56 text$="P"”:zeile=9:spalte=8:G0SUB 
78 

57 text$="C":zeile=16:spalte=13:605 
uUB 78 

58 PEN 1:PRINT 
RINT ” Aktiv"; 
59 FOR a=1 TO ABUU:NEXT:GOTO 28 

68 ’* Zeichenroutine * 

78 po=PEEK( &B296) +256*PEEK( &B297) -2 
57: ’fuer 464 

75 "po=PEEK( &B736) +256*PEEK( &B737) - 
257: ’fuer 664/6128 

8B FOR a=1 TO LEN(text$) 

98 pr=po+8*ASC(MID$ltext$,a)) 

188 FOR c=1 TO 8 

118 r=1:e=PEEK(prt+tc) 

128 FOR d=8 TO 1 STEP -1 

138 fFe(c,d)=e AND r:r-=r+tr 

148 NEXT:NEXT 

158 PEN 2 

168 FOR g=d TO 8 

178 LOCATE spalte+t8*a-8,zeiletg 

188 FOR h=1 TO 9 

198 IF fe(g,h) THEN PEN 1:PRINT CHR 
$( 143) ;:PEN 2:GOTO 268 

288 IF fe(g,h-1) GOTO 248 

218 IF fe(g+1,h-1) GOTO 2308 

228 IF fe(g+1,h) THEN PRINT CHRA$( 21 
4) ;:G0TO 268 ELSE PRINT CHRA$(9);:6G0 
TO 268 

238 IF fe(g+1,h) THEN PRINT CHR$C 14 
3) ;:60T0O 268 ELSE PRINT CHR$( 222);: 
GOTO 268 

248 IF fe(g+1,h) THEN PRINT CHRA$( 22 
1);:G0T0O 268 

258 IF fe(g+1,h-1) THEN PRINT CHRA$( 
287); ELSE PRINT CHR$( 220); 

268 NEXT :NEXT:NEXT 

278 RETURN 


"Schneider”; :PEN 2:P 
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DIE TURME 
VON HANOI 


Dieses Strategiespiel kann man schon als Klassiker be- 
zeichnen. Es existiert fast für jeden Computer und soll- 
te in keiner Programmsammlung fehlen. Eine beson- 
ders gute Version des Denkspieles, welches wir unse- 
ren Lesern mit gutem Gewissen empfehlen können, 
kommt vom Schneider aktiv-Autor Michael Köthe. 


Spielregeln: 
Umrangieren von Fertigbauteilen 


Der Sinn des Spieles besteht darin, sämtliche Steine 
von der mittleren, auf eine durch den Spieler vorher zu 
bestimmende, andere Stangen anzuordnen. Dies hört 
sch leichter an als getan, denn die Steine sind unter- 
schiedlich groß und es können immer nur die kleine- 
ren auf die größeren Steine gepackt werden. Die Zahl 
der Bauteile kann zwischen drei und zehn beliebig 
gewählt werden, Anfänger sollten erst mit drei begin- 
nen. Dann kann man sich immer noch steigern. Der 
CPC gibt dabei aber noch die Zahl der Minimum-Züge 
an. Wer es dann schafft, mit diesen Mindest-Zügen 
auszukommen, der kann sich als Hanoi-Meister fühlen. 
Natürlich gibt es auch eine Strategie, die, wenn sie 
konsequent angewandt wird, den schnellsten Erfolg 
bringt. Aber so etwas herauszufinden ist ja das halbe 
Rätsel, weshalb nichts davon verraten sein soll. Viel 
Spaß beim Spielen! 

(JE) 
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VERUREHSSESESEIESFSESEIESE SERIE SE IE AR SE SERIE SEIEN 


TUERME VON HANOI 
VON 


[2:3 x 
* 
MICHAEL KOETHE x 
+ 
* 
#+ 


+ 
.". 
Z FUER 
‚ SCHNEIDER AKTIV 

Z CPC 464/664/6128 
ISREHHERUHEHUCHHAUEEHHERERHEHHRHENR 
MODE 1 

GOSUB 920 

INK 3,3:INK 2,18:INK 0,0:BORDER 


oOoONSUBRUN— 


DIM hn( 3,10) 

GOSUB 1040 

MODE 1 

60 WINDOW#1,2,39,1,3:PAPER#1,1:CL5# 
1:PEN#1,3 

70 LOCATE#1,4,2:PRINT#1,"TUERM 

E VON HA N 0 I":PEN#1,0 

80 LOCATE 2,17:PRINT STRING$( 38,208 

) 

90 FOR i=-6 TO 16 

100 FOR x=B TO 32 STEP 12 

110 LOCATE x,i:PRINT CHR$( 149) 
120 NEXT x,i 

130 LOCATE 9,19:PRINT"Wieviele Stei 
ne (3-10)"” 

140 LOCATE 18,20:PRINT"O = 10” 

150 h$=INKEY$:IF h$="" THEN 150 

160 IF h$="0" THEN anz=10:60T0 180 
170 anz=ASC(h$)-48:IF anz<3 OR anz> 
9 THEN 150 

180 IF anz=0O THEN anz=10 

190 LOCATE 1,19:PRINT SPACE$( 80); 
200 GOSUB 730 

210 LOCATE 2,22:PRINT"Wo sollen die 
Steine aufgebaut werden" 

220 h$=INKEY$ 

230 IF h$="1" 

240 GOTO 220 

250 ziel=VAL(h$) 

260 PEN 2 

270 LOCATE 2,22:PRINT SPACE$( 39) ; 

280 LOCATE 1,5:PRINT ziel$ 

290 LOCATE 1,15:PRINT USING"”#"”; ziel 

300 FOR i=1 TO anz 

310 zanz=zanz*2+]I 

320 NEXT 

330 LOCATE 24,23:PRINT"M’Zugzahl:"; 

USING" #HHHH” ; zanz 


OR h$="3" THEN 250 


340 LOCATE 30,24:PRINT"”"Zug:" 

350 PEN 1 

360 

370 ” Spiel 

380 

390 LOCATE 2,23:PRINT" u 

400 LOCATE 2,24:PRINT" = 

410 LOCATE 2,23:PRINT"VON:" 

420 h$=INKEY$:IF h$="" THEN 420 

430 zi=VAL(h$) :IF zi<i OR z1>3 THEN 


420 
440 
)=0 
450 
460 
470 
480 

420 
490 IF z2=z1 THEN 390 
500 IF hn( z2,zeig( z2))<hn(z1,zeig(z 
1)) AND zeig( z2)<>O THEN PRINT CHR$ 
(7);:GOTO 390 
510 GOSUB 570 
520 IF hn(ziel,anz)=1 THEN 1400 
530 GOTO 390 
5a0 
550 
560 
570 PEN 2:zeig( z2) =zeig( z2) +1 
580 hn( z2,zeig( z2))=hn(z1,zeig(z1)) 
590 LOCATE posi( z1)-INT(hn( z1,zeig( 
z1))/2),17-zeig( z1) 

600 PRINT SPACE$( leer(hn( z1,zeig(z1 

Y))I); 

610 LOCATE posi(z1),17-zeig( z1):PEN 
1:PRINT CHR$( 149) :PEN 2 

620 hn(zi,zeig(z1))=O 

630 zeig( z1)=-zeig( z1)-1 

640 PRINT CHR$( 22) CHR$( 1) 

650 LOCATE posi(z2), 17-zeig( z2) 

660 PRINT hn$(hn( z2,zeig(z2))) 

670 PRINT CHR$( 22) CHR$(0O) 

680 zug=zug+1:LDOCATE 34,24:PRINT US 

ING" #HHHH" ; zug; :PEN 1 

690 RETURN 

700 

710 

720 

730 t=anz 

740 PEN 2 

750 PRINT CHR$( 22) CHR$C 1) 

760 FOR i=-1 TO 10 


IF hn(z1,zeig(z1))=0O OR zeig(z1 
THEN PRINT CHR$( 7); :GOTO 420 
LOCATE 7,23:PRINT z1 

LOCATE 2,24:PRINT"NACH: " 
h$=INKEY$:IF h$="" THEN 470 
z2=VAL(h$) :IF z2<1 OR z2>3 THEN 


Zuege setzen 


Aufbau Grundstellung 


770  hn(2,i)=t 

780  LOCATE 20,17-i:PRINT hn$(t) 
790  t=t-1 

800 IF t<O THEN t=0 


810 NEXT i 

820 DIM zeig(3),posi(3) 

830 zeig( 1)=O:zeig(2)=anz:zeig( 3) =-O 

840 posi( 1)=8:posi( 2) =20:posi( 3) =32 

850 PRINT CHR$( 22) CHR$CO) 

860 LOCATE 8, 18:PRINT"I 2 
u 

870 PEN 1 

880 RETURN 

890 

900 

910 

920 LOCATE 5,2:PRINT'"TTUERME 

VON HAN DO I” 


Erklaerung 
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330 LOCATE 1,8:PRINT"” Ziel des 5p 
iels ist es, saemtliche Steine 
von der mittleren Stange a 
uf eine vorher angegebene Stange 
zu packen.” 


940 PRINT" Dabei ist es nicht moe 


glich, einen grossen Stein auf 
einem kleinen zu plazieren. 

Gespielt werden kann mit 3 - 
10 Steinen." 

950 PRINT" Die Mindestzuganzahl 

wird angege- ben.” 

960 PRINT” Gezogen wird durch Ein 


weiligen Ziffer 
dem Zehnerbl 


gabe der je- 

der Stangen auf 
ock"” 

970 PRINT" 
rsten Stange 
smal eingeben." 

990 LOCATE 15,25:PRINT">>TASTE<<" 
1000 CALL &BB18:RETURN 

1010 
1020 
1030 
1040 SYMBOL 
8) 

1050 SYMBOL 
‚240,224,0 
1060 SYMBOL. 
‚255,255,0 
1070 SYMBOL 
‚255, 126,0 
1080 SYMBOL 
‚255,127,0 
1090 SYMBOL. 
‚255,254,0 
1100 DIM hn$( 10) ,leer( 10) 
1110 FOR i=1 TO 10 


Bei Fehleingabe der e 
Stange ein zweite 


Zuweisungen 

240,7,15, 15,15, 15, 19,7, 
241,224,240,240,240,240 
242,255,255,255,255,255 
243,126,255, 255, 255,255 
244,127,255,2558,255,255 


245,254,255,255,255,255 


1120 READ v 

1130 IF v=-1 THEN 1160 
1140 hn$( i)=hn$( i) +CHR$(v) 
1150 GOTO 1120 


1160 NEXT i 
1170 FOR i=1 TO 10 


1180 READ a 
1190 leer(i)=a 
1200 NEXT 


1210 z$="ZIELFELD" 

1220 FOR i=1 TO 8 

1230 ziel$=ziel$+MID$( z$,i,1)+CHRA 
$( 10) +CHRA$( 8) 

1240 NEXT 

1250 RETURN 

1260 DATA 243,-1 

1270 DATA 8,240,242,241,-1 

1280 DATA 8,244,242,245, -1 

1290 DATA 8,8,240,242,242,242,241,- 
1 
1300 
1 


DATA 8,8,244,242,242,242,245,- 


1310 DATA 8,8,8,240,242,242,242,242 
‚242,241,-1 

1320 DATA 8,8,8,244,242,242,242,242 
‚242,245,-1 

1330 DATA 8,8,8,8,240,242,242,242,2 
42,242,242,242,241,-1 

1340 DATA 8,8,8,8,244,242,242,242,2 
42,242,242,242,245,-1 

1350 DATA 8,8,8,8,8,240,242,242,242 
‚242,242,242,242,242,242,241,-1 


1360 DATA 1,3,3,5,5,7,7,9,9,11 
1370 

1380 ° Ende 

1390 

1400 WINDOW 1,40,20,25:CLS 

1410 PRINT"benoetigte Zuege:";zug 
1420 PRINT"moegliche Mindestzugzahl 
:"; zanz 

1430 PRINT:PRINT"Noch einmal (J/N)“ 
1440 h$=INKEY$:IF h$="" THEN 1440 
1450 IF UPPER$(h$)="J" THEN RUN 30 
1460 MODE 2:END 


142 
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VERDIENEN SIE GELD 
MITIHREM COMPUTER! 


WIR ZAHLEN BIS ZU 1000DM! 


Haben Sie einen CPC 464 oder 664 ? Einen 6128 
Können Sie programmieren? In Basic oder 
Maschinensprache? Dann bietet SCHNEIDER AKTIV 
Ihnen die Möglichkeit, mit diesem Hobby Geld zu verdie- 
nen! 


Wie? Ganz einfach. Sie senden uns die Programme, 
die Sie für einen Abdruck als geeignet halten, zusammen 
mit einer Kurzbeschreibung, aus der auch die verwende- 
te Hardware — eventuelle Erweiterungen — benutzte Pe- 
ripherie — hervorgehen muß, ein. 


Benötigt werden: eine Datenkassette oder Diskette! 
Wenn die Redaktion sich überzeugt hat, daß dieses Pro- 
gramm läuft und sich zum Abdruck eignet, zahlen wir 
Ihnen pro Programm je nach Umfang bis zu DM 300,—! 


Name des Einsenders: __ 


Für das ‚Listing des Monats‘‘ sogar DM 1.000,'—. 
Sie erhalten Ihre Kassette /Diskette selbstverständlich 

zurück, wenn Sie einen ausreichend frankierten 

Rückumschlag mit Ihrer Adresse beifügen. 


Bei der Einsendung müssen Sie mit Ihrer Unterschrift ga- 
rantieren, daß Sie der alleine Inhaber der Urheber-Rechte 
sind! Benutzen Sie bitte anhängendes Formular! (Wir 
weisen darauf hin, daß auch die Reaktion englische 
Fachzeitschriften liest und ‚‚umgestaltete‘‘ Programme 
ziemlich schnell erkennt). 


Um Ihnen die Arbeit zu erleichtern, finden Sie hier ein 
Formular. Sie können es ausschneiden oder fotokopie- 
ren. 


Straße /Hausnr. /Tel.: 


PLZ/Ort: 


Hiermit biete ich Ihnen zum Abdruck folgende(s) Programm(e) an: 


Benötigte Geräte: 


Beigefügt [_) Listings I] Kassette |_) Diskette 


Ich versichere, der alleinige Urheber des Programms zu sein! 
Hiermit ermächtige ich die Redaktion, dieses Programm abzudrucken und wirtschaftlich zu verwerten. Sollte es in 
den Kassetten-Service aufgenommen werden, erhalte ich auch dafür eine entsprechende Vergütung. Das Copyright 


geht an den Verlag über. 


Rechtsverbindliche Unterschrift 


SCHNEIDER AKTIV 
PROGRAMM-REDAKTION 
POSTFACH 1161 

D-8044 UNTERSCHLEISSHEIM 


